Bonjour les développeurs je reviens vers vous à cause d'un problème
quand j'exécute ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
'Pour Non
If Target = "Non" Then Target.Offset(0, 2).ClearContents
If Target = "Non" Then Target.Offset(0, 3).ClearContents
If Target = "Non" Then Target.Offset(0, 6).ClearContents
'Pour VIDE
If Target = "" Then Target.Offset(0, 2).ClearContents
If Target = "" Then Target.Offset(0, 3).ClearContents
If Target = "" Then Target.Offset(0, 6).ClearContents
Exit sub 
End Sub
EXCEL SE bloque , se FERME et laisse ce message d'erreur : Erreur d'exécution -2147417848 (80010108) La méthode Clearcontents de l'objet Range a échoué"