Sub compiler()
Dim ws As Worksheet
Dim ligne As Integer
ligne = 5
For Each ws In Worksheets
If ws.Name <> "SYNTHESE" Then
Cells(ligne, 1) = ws.Range("A2")
Cells(ligne, 2) = ws.Range("D4")
Cells(ligne, 3) = ws.Range("D5")
Cells(ligne, 4) = ws.Range("D6")
Cells(ligne, 5) = ws.Range("D7")
Cells(ligne, 6) = ws.Range("D8")
Cells(ligne, 7) = ws.Range("D9")
Cells(ligne, 8) = ws.Range("D10")
Cells(ligne, 9) = ws.Range("D11")
Cells(ligne, 10) = ws.Range("D12")
Cells(ligne, 11) = ws.Range("D42")
ligne = ligne + 1
End If
Next ws
End Sub