Probleme d'erreur d'incompatibilité

Bonjour,

Je veux qu'une ligne change de couleur selon une valeur inscrite dans une case.

Ce code marche cepandant lorsque je selectionne plusieur cellule une erreur d'incompatibilité s'affiche. Esce qu'il existe une fasson de contourné cette erreur ?

Voici mon code :

Application.DisplayAlerts = False

If Not Application.Intersect(Target, Range("$A$5:$A$2163")) Is Nothing Then


Select Case Target.Value
Case "0 - Introuvable"
Rows(Target.Row).Interior.ColorIndex = 17
Case "1 - Actif"
Rows(Target.Row).Interior.ColorIndex = 2
Case "2 - Désactiver"
Rows(Target.Row).Interior.ColorIndex = 3
Case "4 - Lid à reprendre"
Rows(Target.Row).Interior.ColorIndex = 6
Case "5 - À désactiver"
Rows(Target.Row).Interior.ColorIndex = 45
Case "6 - À affecter"
Rows(Target.Row).Interior.ColorIndex = 43
End Select
End If

Application.DisplayAlerts = true

Merci,