' Synthese Macro
Dim i As Long, j As Long
Worksheets("suivi").Select
j = Range("a65536").End(xlUp).Row
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Suivi" Then
With Worksheets(i)
j = j + 1
Cells(j, 1).Value = .Range("G7").Value
Cells(j, 2).Value = .Range("G30").Value
Cells(j, 5).Value = .Range("G31").Value
Cells(j, 8).Value = .Range("G32").Value
Cells(j, 11).Value = .Range("G33").Value
Cells(j, 14).Value = .Range("G34").Value
Cells(j, 17).Value = .Range("G35").Value
Cells(j, 20).Value = .Range("G36").Value
End With
End If
Next i