Private Sub CommandButton1_Click()
Dim L, NUM, LL As Integer
If MsgBox("Confirmez vous ajout Pots?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("tracking").Range("b65536").End(xlUp).Row + 1
LL = Sheets("tracking").Range("A65536").End(xlUp).Row + 1
NUM = 1
For I = 1 To TextBox1.Value
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = NUM
Range("D" & L).Value = ComboBox1
Range("E" & L).Value = ListBox1.Value
Range("F" & L).Value = TextBox2
formule = "=SUMPRODUCT((DB!$F$2:$F$25=""" & ComboBox2.Value & """)*(DB!$G$2:$G$25=""" & ComboBox1.Value & """)*(DB!$H$2:$H$25))"
Sheets("tracking").Range("K" & L).Formula = formule
L = L + 1
NUM = NUM + 1
Next
End If
End Sub