Erreur si supprime plusieur cellules a la fois

Bonjour

essaie comme ceci

Private Sub Worksheet_Change(ByVal Cel As Range)
If Cel.Count > 1 Then Exit Sub
If Intersect(Cel, Range("C8")) Is Nothing Then Exit Sub
If Len(Cel) > 7 Then MsgBox "ID Commerçant 7 caractères": Application.Undo
End Sub

Cdlmnt

bonsoir en fait c'est pas celle la qui pose le soucis je pensais l'avoir supprimé pour cet exemple c'est quand je change les couleurs de l'onglet qui me pose le soucis quand la macro s’arrête elle me signale cette macro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target <> Range("$H$6") Then Exit Sub
Select Case Target.Value
Case Is = "En Cours"
ActiveSheet.Tab.ColorIndex = 35
Case Is = "Attente Action"
ActiveSheet.Tab.Color = RGB(255, 0, 0) '38
Case Is = "Cloturé"
ActiveSheet.Tab.ColorIndex = 50
End Select
End Sub
dans ThisWorkBook

C'est la même chose, il te faut vérifier que le nombre de cellules qui ont changé n'est pas supérieur à . et tu devrais ajouter cette instruction à l'autre procedure)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
if Target.count > 1 then exit sub
If Target <> Range("$H$6") Then Exit Sub 

Cdlmnt

j'ai mis le fichier exemple si tu peux developper
https://www.cjoint.com/c/KFgriU7tcoe
merci

Tu as mis à Résolu donc tu as du trouver
Au cas où

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> ActiveSheet.Range("$H$6") Then Exit Sub
Select Case Target.Value
  Case Is = "En Cours": ActiveSheet.Tab.ColorIndex = 35
  Case Is = "Attente Action": ActiveSheet.Tab.Color = RGB(255, 0, 0)  '38
  Case Is = "Cloturé": ActiveSheet.Tab.ColorIndex = 50
End Select
End Sub

Bonne soirée

Bonjour
oui le probleme est resolu
merci de ton aide