Sub Macro2()
Dim o As Object 'déclare la variable o (Onglet)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
For Each o In Sheets 'boucle sur tous les onglets du classeur
If Not o.Name = "Feuil1" Then 'condition : si le nom de l'onglet n'est pas "Feuil1"
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
'définit la cellule de destination dest (A1 si A1 est vide, sinon, la première cellule vide de la colonne A)
Set dest = IIf(.Range("A1").Value = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With 'fin de la prise en compte de l'onglet "Feuil1"
o.Rows(116).Copy dest 'copie la ligne 116 et la colle dans dest
End If 'fin de la condition
Next o 'prochain onglet de la boucle
End Sub