Dim cell As Range
Const limit As Integer = 5
For Each cell In Range("P2
" & Range("P65536").End(xlUp).Row) 'boucle sur col P
'--- b) ici pour les blancs ------------------------------------------------------------------------
'si le contenu de la colonne P est VIDE(blanc) y place le mot "NIHIL"
If cell.Value = "" Then ' = "" signifie rien ou vide
cell.Interior.ColorIndex = 5 'caractères en rouge
cell.Value = "NIHIL" ' place le mot "NIHIL"
End If
'----c) ici pour les dépassement de 3 caractères en colonne P --------------------------
If Len(cell) > limit Then 'reduit à 5 caractères (constante ci-dessus)
cell.Font.ColorIndex = 5 'caractères en blanc
cell.Value = "ERROR" 'place le mot "ERROR" '
End If