Action suite à un clic

Bonjour,

Comment peut on procéder pour qu'en cliquant sur une cellule de l'onglet1, son contenu (un chiffre ou un nom) se copie dans l'onglet4 dans la cellule B1 (toujours cette cellule) ?

Merci pour votre aide.

BH

Bonjour

Pour commencer un code à placer dans le module de la feuille (clic droit sur l'onglet de la feuille --> visualiser le code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Feuil4").Range("B1") = Target
End Sub

Merci.

BH