Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range 'déclare la variable R (Recherche)
If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1, sort de la procédure
Set R = Columns(3).Find(Range("A1").Value, , xlValues, xlWhole) 'définit l recherche R (Recherche la valeur entière de A1 dans la colonne 3)
'si au moins une occurrence existe affiche dans le message l'adresse de la première occurrence trouvée
If Not R Is Nothing Then MsgBox "Ligne : " & R.Row & Chr(13) & "Colonne : " & R.Column
End Sub