Envoie de données dans des tablx avec forulaire personnalisé

Bonjour à tous,

Je sollicite votre aide concernant un problème d'envoie de données dans des tableaux différents à partir d'un formulaire. C'est à dire que dans mon formulaire, il y a des zones de textes (TextBox) et, une liste déroulante (ComboBox) qui détermine vers quels tableaux les données doivent inscrire.

Mon problème est lors de l'envoie des données dans ce tableaux, le formulaire à du mal à trouver la dernière ligne du tableau! Parfois, il m'envoie les donnée tout à la fin de la feuille de calcul... j'ai essayé plusieurs méthodes mais en vains... Je vous joint mon fichier, le bouton d'activation du formulaire est dans l'onglet "Base de données".

Dans l'attente d'une réponse favorable, merci beaucoup!

Bonjour,

le code pour Bouton1 :

Private Sub CommandButton1_Click()
Dim i As Integer
Select Case ComboBox1
Case Is = "Matériels d'entraînement"
   If MsgBox("Confirmez-vous l'insertion de ce nouveau produit ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
      i = Sheets("Base de données").Range("A65536").End(xlUp).Row + 1
      Range("C" & i).Value = ComboBox2
      Range("B" & i).Value = TextBox1
      Range("A" & i).Value = TextBox2
   End If
Case Is = "Engins et haies"
   If MsgBox("Confirmez-vous l'insertion de ce nouveau produit ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
      i = Sheets("Base de données").Range("E65536").End(xlUp).Row + 1
      Range("G" & i).Value = ComboBox2
      Range("F" & i).Value = TextBox1
      Range("E" & i).Value = TextBox2
   End If
Case Is = "Perches"

Case Is = "Matériels de juge"
   If MsgBox("Confirmez-vous l'insertion de ce nouveau produit ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
      i = Sheets("Base de données").Range("M65536").End(xlUp).Row + 1
      Range("O" & i).Value = ComboBox2
      Range("N" & i).Value = TextBox1
      Range("M" & i).Value = TextBox2
   End If
Case Is = "Equipements sportif"

Case Is = "trousseaux de clefs"
End Select
End Sub

A+

Merci beaucoup c'est très sympas de votre part ! A+