Erreur d'exécution '1004'

Bonjour,

Envoi nous ton code ou ton fichier ;)

Bonjour/bonsoir!
Le probleme venait du bout de code en gras ci-dessous. je l'ai remplacé par la boucle for qui vient juste après et ça marche sans msg d'erreur. J'aimerais toutefois le probleme sur la partie en gras. MERCI.

With wks
For i = 2 To derligne
If cmbuser = .Range("A" & i).Value Then
.Range("A" & i).Value = user
.Range("B" & i).Value = mdp

' .Range(Cells(i, 3), Cells(i, 14)).ClearContents (Remplacé par la boucle for qui suit)
'__________________________________________________________

For k = 3 To 14
.Cells(i, k).Value = ""
Next k
'_____________Et puis plus de messages d'erreur__________________________________________________

For j = 2 To 13
If Me.Controls("checkbox" & j) = True Then
.Cells(i, j + 1).Value = "X"
End If
Next j
MsgBox "Le compte " & user & " a été modifié avec succès"

Unload Me
UserForm1.Show
Exit For
End If
Next i
End With