Agir en fonction de la feuille active

Bonjour le forum,

J’ai un Userform qui reste ouvert en permanence.
Je souhaite :
- Si je suis sur la feuille 3, il « colle » en feuille 3 cellule B1 et C1.
- Si je suis sur la feuille 4, il « colle » en feuille 4 cellule B1 et C1.
- Si je suis sur la feuille 5, il « colle » en feuille 5 cellule B1 et C1.
- Si une autre feuille est selectionner il ne doit rien se passer.


Private Sub CommandButton1_Click()

Dim lign As Long
With Sheets("Feuille3")

.Range("B1").Value = CDate(txtDatePrevue)
.Range("C1").Value = ComboBox8.Value
End With

End Sub

Merci à vous

lanoe