Problème sauter de ligne

Bonjour tous le monde

S'il vous plait, voici mon code que j'ai écrit

sauf qu'on je rempli de nouveaux données, il ne saute pas la ligne, il écrase, et écrit sur la même ligne.

Private Sub btnAjout_Click()
Sheets("source").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select

ActiveCell.Offset(0, 0).Value = txtRéférence
ActiveCell.Offset(0, 1).Value = cboProcess
ActiveCell.Offset(0, 2).Value = cboYDM
ActiveCell.Offset(0, 3).Value = txtQty
ActiveCell.Offset(0, 4).Value = cboUnité

MsgBox "Votre Saisi a bien été ajouter dans la base du SCRAP", vbOKOnly + vbInformation, "Confirmation"

End Sub

Bonjour,

Essaie peut-être un truc du genre (non testé) :

Private Sub btnAjout_Click()
Dim Dernligne as long
Sheets("source").Activate
Dernligne = Range("A1").End(xlDown).row
Range("A" & Dernligne + 1).value = txtRéférence
Range("A" & Dernligne + 1).Offset(0, 1).Value = cboProcess
Range("A" & Dernligne + 1).Offset(0, 2).Value = cboYDM
Range("A" & Dernligne + 1).Offset(0, 3).Value = txtQty
Range("A" & Dernligne + 1).Offset(0, 4).Value = cboUnité

MsgBox "Votre saisie a bien été ajoutée dans la base du SCRAP", vbOKOnly + vbInformation, "Confirmation"

End Sub

Merci, mais toujours le même problème

tes variables ont été déclarées en public quelque part ?

Oui une declaration normale, qu'on je fais combobox par exemple je change son nom c'est tout