Bonjour

J'essaye de mettre "Inutile" dans la colonne M quand dans la colonne L est indiqué "Refusé", ceci de manière automatique lorsque l'on modifie l'une des lignes de L

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Inutile()
Dim c As Range
Worksheets("CRE").Activate
For Each c In Range(Cells(1, 12), Cells(10000, 12))
  If c.Value = "Refusé" Then
    Cells(c.Row, 13) = "Inutile"
  End If
Next c
End Sub
et je l'appelle comme ça dans ma feuille

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
Call Inutile
End Sub
"Inutile" se met bien dans la bonne celulle, mais après j'ai le message d'erreur suivant :

Erreur d'exécution'-2147417848 (80010108)':
La méthode '_Default' de l'objet'Range' a échoué
Puis Excel ne répond pas et provoque sa fermeture.

Merci pour votre aide.