probleme de code!!

Bonjour le forum
je n'arrive pas a resoudre le probleme de ce code pourtant je crois bien ecrire.
est ce que vous penser que le code et correcte ou j'ai du faire une erreur.
merci de votre aide

Private Sub CommandButton4_Click()
If TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Then MsgBox "Veuiller Finir la saisie SVP ! ": Exit Sub

Dim i As Integer
i = 8
Do While ActiveWorkbook.ActiveSheets("Factures Fournisseurs").Range("B" & i) <> ""
i = ActiveWorkbook.Sheets("Factures Fournisseurs").Range("D9").End(xlDown).Row + 1
Loop

ActiveWorkbook.Sheet("Factures Fournisseurs").Range("B" & i) = TextBox2.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("C" & i) = TextBox3.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("E" & i) = TextBox4.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("F" & i) = TextBox5.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("G" & i) = TextBox6.Value
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
End Sub