Problème l'indice n'appartient pas à la sélection - erreur 9

Bonjour à tous,

Novice en VBA je suis confronté à un problème que je n'arrive décidément pas à résoudre...
Donc je vous demande humblement votre aide !!!!

Voilà mon soucis :
j'ai créé un formulaire me permettant d'ouvrir une boîte de dialogue. cela fonctionne à peu près... mais lorsque je clique sur le bouton validé le message suivant s'affiche : Problème l'indice n'appartient pas à la sélection - erreur 9

Voilà mon code :

Private Sub CommandButton1_Click()

Dim ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer

With workSheets("Feuil3")

derligne = .Range("A65536").End(xlUp).Row + 1

For Each ctrl In UserForm2.Controls

r = Val(ctrl.Tag)

If r > 0 Then Feuil3.Cells(derligne, r) = ctrl

Next

End With

End Sub</code>

Le logiciel surligne with worksheets("feuil3")

Merci pour votre aide...