Copiar dados automaticamente

Boas tardes a todos.
Eu venho aqui pedir a vossa ajuda para resolver um pequeno problema.
Eu criei um ficheiro com varias folhas( de classes de resistencia) que tenho que actualizar. E outra que tem um "resumo" de todas as outras.
Como é que eu posso fazer que a pagina resumo se actualize automaticamente quando eu entro os valores nas outras paginas...
Não sei se me faço muito bem compreender, mas se alguem por cà me disser como se faz, eu posto aqui a folha de excell que eu criei e assim sera talvez mais facil perceber o que eu quero....

Desde ja um obrigado pela ajuda que encontrar por cá...

Aqui fica o ficheiro que eu criei...

http: // www .sendspace. com/ file / 6gcyoj

Passo a explicar, nas folhas 20-25, 25-30, 30-37 ..... eu entro os valores nas celulas amarelas;
Date, N° de BL, Recette Beton, Fck, R1 e R2, o resto é calculado automaticamente...
O que eu queria é que os dados Data, N° de BL, Recette Beton, Fck e Fci fossem copiados automaticamente para a folha Famille NF.


Obrigado a todos pelas ajudas que possa obter.

Bom dia!!!
Faça os teste.

Código:

Option Explicit

Sub AleVBA_Copiar_t82()
Dim ws  As Worksheet, _
    LR1 As Long, _
    LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Famille NF1" Then
        LR1 = Sheets("Famille NF1").Range("B" & Rows.Count).End(xlUp).Row + 1
        LR2 = ws.Range("B" & Rows.Count).End(xlUp).Row
        ws.Range("B19:F" & LR2).Copy Destination:=Sheets("Famille NF1").Range("B" & LR1)
    End If
Next ws
Application.ScreenUpdating = True
End Sub