Code erreur! ActiveCell

Bonjour à tous!

J'ai un bug avec un bouton sur un useform.

Ce bouton a pour fonction de remplir un tableau source avec les information saisie dans le formulaire.

Lorsque je l'ai codé cela fonctionné parfaitement mais maintenant que j'ai avancé sur le reste lorqsque je refait un formulaire excel me retourne une fenêtre de débogage puis crash. pas le temp de voir la ligne qui plante.

en suprimant petit a petit le code je me rend compte que c'est au moment de faire [ActiveCell = txtnom.Value] que tout crash.

avez vous une idée?

Bonjour,

Essaie comme cela ...

Private Sub btnsoumettre_Click()
Dim LigneAjout As Long
    With Sheets("Source")
        LigneAjout = .Range("A" & Rows.Count).End(xlUp)(2).Row
        .Cells(LigneAjout, 2).Value = Me.txtnom.Value
        .Cells(LigneAjout, 3).Value = Me.txtprenom.Value
        .Cells(LigneAjout, 4).Value = Me.txtemail.Value
        .Cells(LigneAjout, 5).Value = Me.txtbeneficiaire.Value
        .Cells(LigneAjout, 6).Value = Me.txtdetails.Value
        Sheets("Liste").Range("A1").Copy
        .Cells(LigneAjout, 7).PasteSpecial Paste:=xlPasteValues
        Sheets("Liste").Range("A2").Copy
        .Cells(LigneAjout, 1).PasteSpecial Paste:=xlPasteValues
        .Cells(LigneAjout, 14) = "Demande enregistrée"
    End With
    Unload Me
End Sub

Cordialement.

Grand merci à toi!