Problème destination feuille avec formulaire userform

Bonsoir,

j'ai crée un userform, ou j'aimerai que quand je valide la saisie, les renseignements présents sur le formulaire s'inscrivent dans ma feuille stock sur la première ligne vide qu'il rencontre. Jusque là j'ai réussi à peu près a atteindre mon objectif, à une grosse nuance près c est que c'est pas la bonne feuille ou les renseignements s'inscrivent, ça va à la bonne ligne, mais sur la première feuille de mon classeur, "accueil" en l’occurrence.

Là ça dépasse mes modestes compétences de novice.

Merci de votre aide.

Voici le code que j'ai inscrit.

Private Sub VALIDATIONENTREE_Click()
    Dim i As Integer
If entrée.marque = "" Or entrée.designation = "" Or entrée.teinte = "" Or entrée.quantité = "" Or entrée.péremption = "" Then
    MsgBox "Merci de remplir tous les champs"
    Else
    i = 3
    Do While Worksheets("stock").Cells(i, 2) <> ""
    Cells(i, 2).Offset(1, 0).Select
    i = i + 1
    Loop
    Worksheets("stock").Select
    ActiveCell.Value = entrée.marque.Value
    ActiveCell.Offset(0, 1).Value = entrée.designation.Value
    ActiveCell.Offset(0, 2).Value = entrée.teinte.Value
    ActiveCell.Offset(0, 3).Value = entrée.quantité.Value
    ActiveCell.Offset(0, 4).Value = entrée.péremption.Value
    Unload entrée
    End If
End Sub

Bonsoir,

Première chose à faire : virer tous les "select" et "activecell" qui ne servent à rien et ralentissent l'opération.

Il faut fonctionner avec une variable range.

Courage, c'est presque bon !