Salut JC
Là à mon avis tu pars sur une comparaison sur un texte = 0 et non sur une valeur =0
Donc pour une valeur essaies plutôt ceci
Sub li()
For cpt1 = 1 To 300
If Cells(cpt1, 1).Value = 0 Then
Cells(cpt1, 1).Font.ColorIndex = 9 'couleur
Cells(cpt1, 1).Font.Bold = True
End If
Next cpt1
End Sub
Pour du texte
Sub li()
Dim zero as string
zero = "0"
For cpt1 = 1 To 300
If Cells(cpt1, 1).Value = zero Then
Cells(cpt1, 1).Font.ColorIndex = 9 'couleur
Cells(cpt1, 1).Font.Bold = True
End If
Next cpt1
End Sub
Bon courage
Pascal