Erreur 1004 VBA

Bonjour,

J'ai une erreur 1004 lorsque je valide le formulaire de saisie que j'ai réalisé à l'aide Excel. Lequel doit alimenter une feuille nommée "Janvier".

Voici mes actions :

Private Sub CommandButton1_Click()

Dim ctrl As Control

Dim colonne As Integer

Dim derligne As Integer

'derligne devient la ligne qui suit la dernière valeur du tableau

derligne = Sheets("Janvier").Range("C65000").End(x1Up).Row + 1

'balaye les contrôles un par un avec le For...Next'

For Each ctrl In UserForm1.Controls

'La valeur de "colonne' est égale à la valeur du Tag du contrôle

colonne = Val(ctrl.Tag)

'si la valeur du Tag > 0 l'insertion n° ligne et n° colonne est une
'cellule qui contiendra la valeur "ctrl" c'est à dire celle contenue
'dans le contrôle.

If colonne > 0 Then Sheets("Janvier").Cells(derligne, colonne) = ctrl

'Next on passe au contrôle suivant.

Next

End

Merci de votre aide.
Cordialement.