Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$7" Then Exit Sub
[G8].Select
Shell "c:\windows\system32\calc.exe"
End Sub
Vieille comme le monde ??? Je ne vois pas comment ont pu faire les graveurs de tablettes lors de l'apparition de l'écriture cunéiforme, inventée vers 3400 av. J. -C ?le probleme avec cette astuce (vielle comme le monde)