bonjour
votre code fonctionne parfaitement
j'avais fait celui ci , quelle est la différence
Sub MacroBATEAST()
Dim i As Long
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Sheets("Feuil6")
Set Sb = ThisWorkbook.Sheets("Feuil7")
Sb.Range("f2").Clear
Sb.Range("e2").Clear
For i = 2 To Sh.Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To Sb.Range("A" & Rows.Count).End(xlUp).Row
If Sh.Range("b" & i).Value = Sb.Range("a" & j).Value And Sh.Range("c" & i).Value = Sb.Range("b" & j).Value Then
Sb.Range("e2").Value = Sb.Range("e2").Value + Sh.Range("e" & i).Value
End If
Next j
Sb.Range("F2").Value = Sb.Range("F2").Value + Sh.Range("e" & i).Value
Next i
TextBox4 = Sb.Range("e2").Value
TextBox3 = Sb.Range("f2").Value - Sb.Range("e2").Value
End Sub