Ajouter une fonction

bonjour a tous
voila ma fonction qui marche partiellement quand c'est vraie
si font Bold on passe à 0 la ligne qui correspond a ma cellule ecrite en gras Cela fonctionne
par contre pour les cellules nos gras je dois les incrémenter de 1
Sub jack()
Dim r As Range
Dim c As Range
Set r = Range("a10:a62")
For Each c In r.Cells
If c.Font.Bold Then
Application.EnableEvents = False
c.Offset(0, 72).Value = 0
Application.EnableEvents = True
End If
Next c
End Sub