Erreur d'exécution '13': Incompatibilité de type

Bonjour a tous,

alors que je mettais les dernières lignes pour finir le programme, il me met une erreur d exécution '13',

j ai eu beau chercher sur le net comment résoudre le problème rien a faire....

Quand je clic sur le bouton pour lancer mon userform, il bug, met met cela en jaune

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

alors que jusque la tout allais super .....

Mais c est apres avoir changer le code

Private Sub Modifier_Click()

sheets("Base de données joueurs").Cells(ligne, 1) = Pièce
sheets("Base de données joueurs").Cells(ligne, 9) = TextBox1
sheets("Base de données joueurs").Cells(ligne, 2) = Libellé
sheets("Base de données joueurs").Cells(ligne, 10) = TextBox2
sheets("Base de données joueurs").Cells(ligne, 11) = TextBox3
sheets("Base de données joueurs").Cells(ligne, 13) = TextBox4

 MsgBox "La base de donnée a bien été modifier "
End Sub

en :

MsgBox " " & Me.Libellé & " a été crée!"

que tout a bugger.....

et si je compile pour voir l erreur

Private Sub B_ok_Click()
   Dim a()
   n = Application.CountIf(Application.Index(bd, , 1), Me.MotCle)
   ReDim a(1 To n, 1 To bd.Columns.Count)
    ligne = 0
   For i = 10 To bd.Rows.Count
     If bd.Cells(i, 1) = Me.MotCle Then
       ligne = ligne + 1
       For k = 1 To bd.Columns.Count: a(ligne, k) = bd.Cells(i, k): Next k
      End If
   Next i
   Me.ZoneRec.List = a()
End Sub

qui est surligner...... soit, je ne comprend pas....

si une bonne ame pouvais me dire ce qui cloche que je puisse enfin finir un travail de dur labeur ca serais MAGNIFIQUE !!

je vous remercie

Bonjour

Tes cellules L9 et L10 contiennent une erreur

Sélectionne K9:K10 et appuis sur "Suppr"

Le problème disparaitra

Je te remercie mille fois, c est sur que c était pas très compliquer mais ai pas pensé aller voir dans mes cellules......