Envoie de valeur textbox vers Excel

Bonjour, je souhaite avoir une réponse a ma question :

comment transférer les valeurs de textbox et combobox de mon userform vers plage de cellule de feuille activé.

par un seul bouton " valider"

par exemple

si j'ai feuil1 activée je voudrais que le bouton valider agit sur la feuil1

et si j'ai feuil2 activée je voudrais que le bouton valider agit sur la feuil2 ainsi de suite.

je serais trés reconnaissant si vous m'aider car je bloque sur ce point la !!

voici mon code qui fonctionne sur feuil1 seulement.

cordialement abdallah

Private Sub CommandButton1_Click()

Dim derligne As Integer

    If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("feuil1").Range("A254256").End(xlUp).Row + 1

          Cells(derligne, 1) = TextBox1.Value
          Cells(derligne, 2) = TextBox2.Value

    End If
    ThisWorkbook.Save

End Sub

Private Sub CommandButton1_Click()

Dim derligne As Integer

    If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then

   derligne = Sheets("feuil1").Range("A254256").End(xlUp).Row + 1

          Cells(derligne, 1) = TextBox1.Value
          Cells(derligne, 2) = TextBox2.Value

    End If
    Unload UserForm1
    ThisWorkbook.Save
    UserForm1.Show

End Sub

Que doit je faire?

Ajouter seulement

Unload.userform1

Userform1.show

c ton code deja

tu t'ajoute

 Unload UserForm1
    ThisWorkbook.Save
    UserForm1.Show

Merci pour votre aide

Je vais l essayer

pardon abdou une petite erreur dans le code derligne

tu dois mettre activesheet

comme ça

derligne = ActiveSheet.Range("A254256").End(xlUp).Row + 1

Merci !!!!!! Beaucoup alii c super ca mamarche