problème avec Userform

Bonjour,

j,ai un problèeme avec mon code de bouton Nouveau et ajouter

bouton ajouter= le code est
Private Sub AjoutDansBase()
Dim Lgn As Range, Bcle&
IndexBase = PlageBase.Rows.Count + 1
Set PlageBase = PlageBase.Resize(IndexBase)
Set Lgn = PlageBase(IndexBase, 1)
For Bcle = 1 To ColTb.Count
Lgn(1, Bcle).Value = ColTb(Bcle).Text
Next Bcle
AlimenteTb
End Sub

je recois un erreur 1004

merci bcp

Cijoint.fr - Service gratuit de dépôt de fichiers