Private Sub CommandButton1_Click()
Dim i As Long
With Worksheets("Feuil1")
For i = .Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
If .Cells(i, 1) = .Cells(i - 1, 1) And .Cells(i, 2) = .Cells(i - 1, 2) Then
.Cells(i - 1, 6) = .Cells(i - 1, 6).Value
.Cells(i - 1, 7) = .Cells(i - 1, 7).Value
If .Cells(i, 6) <> "" Then .Cells(i - 1, 6) = .Cells(i, 6)
If .Cells(i, 7) <> "" Then .Cells(i - 1, 7) = .Cells(i, 7)
.Rows(i).Delete
End If
Next
End With
End Sub