Sub Macro1()
Dim derligne
For i = 1 To 12 ' 12 étant le nombre de feuilles
derligne = Range("a65535").End(xlUp).Row ' derligne étant la dernière ligne "occupée" dans la feuille "récap"
Worksheets("recapitulatif").Range("a" & derligne + 1).Value = Worksheets("Feuil" & i).Range("B5").Value
Worksheets("recapitulatif").Range("b" & derligne + 1).Value = Worksheets("Feuil" & i).Range("B6").Value
Worksheets("recapitulatif").Range("c" & derligne + 1).Value = Worksheets("Feuil" & i).Range("D2").Value
Worksheets("recapitulatif").Range("d" & derligne + 1).Value = Worksheets("Feuil" & i).Range("D1").Value
' dans les lignes ci-dessus, (& derligne + 1)pour mettre les données dans la première ligne vide
' dans les lignes ci-dessus, Worksheets("Feuil" & i) pour parcourrir le feuilles 1 à 12
Next i ' pour passer à la feuille suivante
End Sub