XL 2019 Copy contenu cellule sélectionnée dans cellule de sauvegarde du contenu

[GDINFO]

Bonjour

je galère toujours mais j'avance

le but est que je fasse une macro qui lors de son activation me copie le contenu de la cellule sélectionnée dans une autre cellule de sauvegarde et reste bien sur sur ma cellule de depart

Exemple : je sélectionne la cellule de A3 jusqu'à K3 et lors de la sélection le contenu se recopie dans A1

Merci de votre aide

 

[AtTheOne]

Bonsoir à toutes & à tous, bonsoir @GDINFO
Avec ce petit bout de code dans le code de la feuil1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     If Target.Count = 1 And Not Intersect(Me.[A3:K3], Target) Is Nothing Then
          Me.[A1] = Target
     End If
    
End Sub

lorsque tu sélectionnes une cellule unique de la plage A3:K3, la valeur de la cellule sélectionnée se reporte en A1

Voir le fichier joint
Amicalement
Alain