Tjs problème VBA : code

Bonjour bonjour !

et oui, je suis de retour, et mon problème n'est pas vraiment résolu (cf. message 25 juillet).
Le code suivant sert d'une part à afficher du texte dans des combobox (le texte venant d'une feuille excel), et d'autre part, à enregistrer des données , une fois les combobox remplies.

Private Sub ListeFournisseur_Click() 'ListeFournisseur est une combobox
Dim tampon As String 'variable pour la lecture d'une case
Dim Nbr As Integer ' Nombre de case lu


'debut liste Fournisseurs
Nbr = 0 'initialistion à 0
For Nbr = 0 To 20 'on se limite à 20 fournisseurs (on peut écrire 1000)
'la variable prend le texte écrit dans la feuille "donnée", case ...:
tampon = Range("A1").Offset(Nbr, 0).Value

If tampon <> "" Then 's'il y a bien du texte
ListeFournisseur.AddItem (tampon) 'on ajoute texte à la liste déroulante
'Remarque :

Else: GoTo Suite1 'si'il n'y à plus de texte dans la case donc c'était
'la dernière, on passe à autre chose
End If
Next Nbr '' incrémentation pour lire la case suivante.
Suite1:

End Sub


j'utilise le même code pour les combobox Marques et Remises.

puis :

Private Sub BtnEnregistrer_Click()
Dim Fournisseur As String
Dim i As Integer


i = ListeFournisseur.ListIndex
Fournisseur = ListeFournisseur.List(i)
Hide


End Sub


et là, ça ne marche pas, alors que ce code était mon grand espoir !
que faire ? merci...

Alex