Sub backUpTab()
Dim ws As Worksheet
'Boucle qui parcours une à une chaque feuille du fichier
For Each ws In Worksheets
'Test qui évite de prendre la feuille 1 car c'est la feuille de récupitulation
If Not ws.Name = "Feuil1" Then
'Dimention du tableau
NbLigne = ThisWorkbook.Sheets(ws.Name).Range("A" & "65535").End(xlUp).Row
'Nombre de ligne tableau dans feuille1
NbLigneFeuil1 = ThisWorkbook.Sheets("Feuil1").Range("A" & "65535").End(xlUp).Row + 1
'Copie des données
ThisWorkbook.Sheets("Feuil1").Range("A" & NbLigneFeuil1 & " : " & "G" & NbLigneFeuil1 + NbLigne - 2).Value = ThisWorkbook.Sheets(ws.Name).Range("A" & "2" & ":" & "G" & NbLigne).Value
End If
Next