Dim Row As Integer
Dim NbValeur As Integer
Dim Row2 As Integer
Dim ValeurC As Long
ValeurC = 0
With Worksheets("Feuil1")
NbValeur = .Cells(3, 3).Value
For Row = 3 To NbValeur
[COLOR="Red"]cartman = true [/COLOR]
For Row2 = 1 To 1300
If Cells(Row2, 13) = Cells(Row, 4) and [COLOR="Red"]cartman = true[/COLOR] Then
[COLOR="Red"]cartman = false[/COLOR]
ValeurC = ValeurC + Cells(Row2, 14)
End If
Next
Next
End With