Bonsoir,
avec ce code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Macro par Dan pour Philippe_63 - Excel Pratique le 10/01/08
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Call --> le nom de ta macro
End If
End Sub
Cellule choisie est A1
Macro à placer en VBA (ALT+F11) dans la feuille concernée par ta demande (CTRL + R puis double clique sur la feuille et placer cette macro dans la fenêtre à droite).
Amicalement
Dan