Modification contenu cellule

Salut " Gérard "
Re :Le "FORUM"

Je te propose cette solution obtenu sur ce Forum
tu peux modifier dans le code les cellules à affecter H1,I1,J1
Voir fichier joint

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
If Target.Count = 1 Then
If Range(Range("H1")) <> Range("I1") Then Range("J1") = Range("H1")
Range("I1") = Target.Value
Range("H1") = Target.Address
End If
End Sub
A+++
Jean Marie