Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Value <> "" And Target.Count = 1 Then MsgBox "Vous venez de renseigner la cellule " & Target.Address(RowAbsolute:=False, ColumnAbsolute:=False), vbInformation, "Adresse"
End Sub