Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim totaux()
ReDim totaux(1)
For Each ws In Sheets
For n = 1 To ws.Range("[COLOR=red]B[/COLOR]65536").End(xlUp).Row
For m = 1 To ws.Cells(n, 256).End(xlToLeft).Column
If ws.Cells(n, m) = "cc" Then totaux(n) = totaux(n) + 1
If n + 1 > UBound(totaux) Then
ReDim Preserve totaux(n + 1)
End If
Next m
Next n
Next ws
For n = 1 To UBound(totaux) - 1
If totaux(n) >= 5 Then MsgBox ("Trop de cc en ligne " & n)
Next n
End Sub