Sub Ajout_Valeur()
Dim DerLig As Long, i As Long
Application.ScreenUpdating = False
DerLig = Range("A" & Rows.Count).End(xlUp).Row
For i = DerLig To 3 Step -1
If Cells(i, "A") = Cells(i - 1, "A") Then
If Cells(i - 1, "G") < Cells(i - 1, "H") And Cells(i, "B") < 50 And Cells(i - 1, "F") = "T" Then
Cells(i - 1, "D") = Cells(i - 1, "D") + Cells(i, "D")
Rows(i).Delete
End If
End If
Next i
End Sub