Sub test()
'Déclaration =======================================
Dim F_S As Worksheet, F_D As Worksheet
'MEI ===============================================
Set F_D = Sheets("TOUTES SOCIETES") 'Feuille destination
For Each F_S In ThisWorkbook.Sheets
'pour chaque feuille de ce fichier (fichier contenant la macro)
If F_S.Name <> F_D.Name Then
'si la feuille a un nom différent de celle de destination, alors
F_S.Range(F_S.[A1], F_S.Cells(Rows.Count, "A").End(xlUp)).EntireRow.Copy _
F_D.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
'copier de la ligne 1 à dernière non-vide en A de F_S et les coller à partir de la
'ligne suivant la dernière cellule non-vide en A de F_D
End If
'limite du test
Next F_S
'passer à la feuille suivante
End Sub