Bonjour,
proposition de solution via une macro
Sub test()
p1 = 3
p2 = 3
p3 = 2
While Cells(p1, "c") <> "" And Cells(p2, "f") <> ""
If Cells(p1, "c") = Cells(p2, "F") Then
p3 = p3 + 1
Cells(p3, "i") = Cells(p1, "c")
Cells(p3, "j") = Cells(p1, "d")
Cells(p3, "k") = Cells(p2, "g")
p1 = p1 + 1
p2 = p2 + 1
ElseIf Cells(p1, "c") < Cells(p2, "F") Then
p1 = p1 + 1
Else
p2 = p2 + 1
End If
Wend
End Sub