XL 2019 Vider le contenu d'une cellule après saisie

pat66 à dit:

Bonjour le forum,

voilà j'ai besoin d'un peu d'aide pour effectuer l'action suivante, à savoir

Dès que la valeur saisie dans F6 est copié dans Sheets("SAISIE").[Y54], la valeur saisie dans [F6] s'efface automatiquement, la cellule redevient vide

un grand merci
belle journée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [F6]) Is Nothing Then
If Target <> "" Then Sheets("SAISIE").[Y54] = Sheets("Rev au terme").[F6]
End If
end sub

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [F6]) Is Nothing Then
        Application.EnableEvents = False
        If Target...