Set Plage = Range("B4").CurrentRegion.Offset(1, -1).Resize(, 5)
Plage.ClearContents
Plage.Offset(1).Clear
Application.ScreenUpdating = False
With Sheets("synthèse")
For Each C In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row) 'le point devant "Range(..." remplace: Sheets("synthèse")
DerLgn = Range("B" & Rows.Count).End(xlUp).Row
Flag = 0
For Each Cell In Range("B5:B" & DerLgn)
Next Cell
If Flag = 0 Then
DerLgn = DerLgn + 1
Cells(DerLgn, "B").Value = .Cells(C.Row, "A").Value
Cells(DerLgn, "D").Value = .Cells(C.Row, "I").Value
Range("A5:E5").Copy
Cells(DerLgn, "A").PasteSpecial xlPasteFormats
Range("A3:E3").Copy
Cells(DerLgn + 1, "A").PasteSpecial xlPasteFormats
End If
Next C
End With
Application.CutCopyMode = False
Cells(1, 1).Select