Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if checkbox1=false (pas sûr de la syntaxe) and range('a1') =5 then appel
End Sub
If CheckBox1.Value = True And Range('A1') = 5 Then
...
bonjour tout le monde
Eric C je m'excuse pour l'inhibition de lancement de macro, cela a été une bonne solution pour moi, désolé j'ai oublié de mettre la réponse
Pour ce code je vais testé et cela devrais convenir, je vient de m'appercevoir que j'ai fait une erreur en le recopiant.
Merci a tous et encore milles excuses