Erreur 1004 formulaire vba

bonjour,

Merci de suivre ces instructions quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

Quelle est l'instruction sur la ligne 4?

Il est préférable de ne pas utiliser ainsi Select et Active.

    dim cl as range
    set cl=Sheets("Commande").Range("A1").End(x1down).Offset(1, 0)
    cl = cboagence
    cl.Offset(0, 1) = txtclient

D'abord merci à vous deux pour votre réponse si rapide. Je m'excuse de la présentation de mon message je n'avais pas trouver comment le mettre en forme correctement. J'y remédie dans celui là.

Option Explicit

'***'
'procédure pour ajout d une nouvelle commande'
'***'
Private Sub btnAjout_Click()
    Dim cl As Range
    Set cl = Sheets("Commande").Range("A1").End(xlDown).Offset(1, 0)
    cl = cboagence
    cl.Offset(0, 3) = txtclient
    cl.Offset(0, 4) = txtref
    cl.Offset(0, 5) = cbodate
    cl.Offset(0, 6) = txtcontact
    cl.Offset(0, 7) = txtnumcontact
    cl.Offset(0, 8) = txtadresse
    cl.Offset(0, 9) = txtspec
    cl.Offset(0, 10) = txtdemandepart
    cl.Offset(0, 11) = txtdevis
    cl.Offset(0, 12) = txtdetail
    cl.Offset(0, 13) = txtvaleur
    cl.Offset(0, 14) = cbofournisseur
    
    MsgBox "Votre commande a bien été ajoutée", vbOKOnly + vbInformation, "CONFIRMATION"
End Sub

'****'
'procédure pour reinitialiser les champs du formulaire'
'****'
Private Sub btneffacer_Click()
    cboagence = ""
    txtclient = ""
    txtref = ""
    cbodate = ""
    txtcontact = ""
    txtnumcontact = ""
    txtadresse = ""
    txtspec = ""
    txtdemandepart = ""
    txtdevis = ""
    txtdetail = ""
    cbofournisseur = ""
    txtvaleur = ""
End Sub

'****'
'procédure pour fermer le formulaire'
'****'
Private Sub btnfermer_Click()
    Unload Me
End Sub

'****'
'afficher la liste des commandes'
'****'

Private Sub btnsource_Click()
    Sheets("Commande").Activate
    Range("a1").Select
End Sub

'*****'
'procédure permettant de d'activer le bouton d ajout de'
'commande en fonction de si la première case est vide ou non'
'*****'

Private Sub cboagence_Change()
    If cboagence <> "" Then
        btnAjout.Enabled = True 'activer le bouton'
    Else
        btnAjout.Enabled = False 'désactiver le bouton'
    End If

End Sub

Alors j'ai ajouté mon option explicit au début, j'ai modifié mon code selon vos conseils et en effet c'est bien xldown et non x1down. Ca fonctionne beaucoup mieux comme ça néanmoins j'arrive à rentrer 2 commandes et ensuite ça stagne sur la même ligne. Je me demande si il ne faudrait pas que je fasse une boucle qui incrémente le nombre de ligne à chaque fois ?

En tout cas merci de vos réponses elles m'ont bien aidées

Biensur je vous partage le fichier. Non la colonne est bien remplie et la ligne aussi. Y a t il une procédure pour vous l'envoyer ou un lien wetransfer suffit ?

https://wetransfer.com/downloads/948017aab1d56b42e2cabc7e4c29d3f420220912065532/15d347

Merci ozone_,

Je teste ça et je vous redis.