Sub RECAPsemaine()
With Feuil4
bas = .[C65000].End(3).Row
For lig = 2 To [A65000].End(3).Row Step 2
If Cells(lig, 1) = "" Then lig = lig + 2
code = Cells(lig, 1)
For col = 5 To 23 Step 3
dd = Cells(1, col)
For lg = 2 To bas
If .Cells(lg, 3) = dd And .Cells(lg, 5) = code Then
If .Cells(lg, 9) <> "" Then Cells(lig + 1, col) = .Cells(lg, 9)
If .Cells(lg, 10) <> "" Then Cells(lig + 1, col + 1) = .Cells(lg, 10)
If .Cells(lg, 11) <> "" Then Cells(lig + 1, col + 2) = .Cells(lg, 11): Exit For
End If
Next
Next
Next
End With
End Sub