Couleur cellule

Bonjour,

J'ai cette macro qui fonctionne, mais sur une feuille seulement alors je voudrais qu'elle soit sur l'ensemble des feuilles. Alors que devrais-je modifier pour obtenir ceci ? Je ne suis vraiment pas une pro :(

Voici la macro :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Range("e2:o500"), Target) Is Nothing Then

ActiveSheet.Unprotect

nv = Target.Value

Application.EnableEvents = False

Application.Undo

If nv <> Target.Value Then

Target.Value = nv

Target.Interior.Color = vbRed

End If

Application.EnableEvents = True

End If

End Sub

Merci beaucoup de m'aider :)

Chantal

Bonjour Chantal25506, le forum,

Essaies de placer le code dans le module ThisworBook...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 If Not Intersect(Range("e2:o500"), Target) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
   ActiveSheet.Unprotect
   nv = Target.Value
   Application.EnableEvents = False
   Application.Undo
  If nv <> Target.Value Then
   Target.Value = nv
   Target.Interior.Color = vbRed
  End If
   Application.EnableEvents = True
 End If
End Sub

Cordialement,