Sub FusionLignes()
Dim i As Integer, j As Integer, Lig As Integer, Tablo
With Sheets("Feuil1")
Lig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:E" & Lig)
For i = 1 To Lig - 2
[COLOR="Red"]If Tablo(i, 1) <> "" Then[/COLOR]
For j = i + 1 To Lig - 1
If Tablo(j, 1) <> "" Then
If Tablo(j, 4) = Tablo(i, 4) And Tablo(j, 5) = Tablo(i, 5) Then
Tablo(i, 2) = Tablo(i, 2) + Tablo(j, 2)
Tablo(j, 1) = "": Tablo(j, 2) = "": Tablo(j, 3) = "": Tablo(j, 4) = "": Tablo(j, 5) = ""
End If
End If
Next j
End If
Next i
.Range("A2:E" & Lig) = Tablo
.Range("A2:E" & Lig).Sort Key1:=Range("A2"), Order1:=xlAscending
End With
End Sub