Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim cel As Range
Dim ws As Worksheet
Dim b As Long
For Each ws In Worksheets
b = Target.Row
For Each cel In Range(Cells(b, 1), Cells(b, 255))
If cel.Value = "cc" Then totcc = totcc + 1
Next cel
If totcc = 5 Then
MsgBox ("Attention trop de cc !!!")
End If
Next ws
End Sub