Bjr François , Bjr au forum,
il y a sûrement mieux , ou + simple , voici ce que tu peux écrire en code, en nommant ta plage avant("ventesnulles") .
merci aux prochains intervenants sur ce post de m'aider à faire mieux encore.
merci à tous.
Sub VtNulles()
Dim i
Range("ventesnulles").Select
For Each i In Selection
If i.Value = 0 Then
i.Font.Bold = True
End If
Next i
End Sub
Sub RemiseAzéro()
Range("ventesnulles").Select
Selection.Font.Bold = False
End Sub