Sub filleul()
lig = 2: k = 9: deb = 2
tx = Cells(lig, 3) & Cells(lig, 4)
While tx <> ""
lig = lig + 1
If Cells(lig, 3) & Cells(lig, 4) = tx Then
Range(Cells(deb, k), Cells(deb, k + 1)).Value = Range(Cells(lig, 7), Cells(lig, 8)).Value
Rows(lig).Delete
k = k + 2
lig = lig - 1
Else
tx = Cells(lig, 3) & Cells(lig, 4)
deb = lig: k = 9
End If
Wend
End Sub