changer police avec condition

bonjour a tous

j ai trouvé une macro qui change controle les cellules si la valeur est "*" si oui change la police en ""Wingdings 3"

Dim c As Range
For Each c In Worksheets("essai1").Range("f15:f" & Range("f65536").End(xlUp).Row)
If c.Value = "*" Then
With c.Font
.Name = "Wingdings 3"
End With
End If
Next c

je voudrai apporter une modif a ce code et la j ai besoin de votre aide
je voudrai que le controle s 'effectue sur les memes valeurs mais si la cellule contient le "*" que ce soit la cellule se trouvant en colonne O qui modifie la police en "Wingdings 3" et si la cellule controlée n'a pas le "*" que la police soit "arial"

merci a tous de votre aide

amicalement

ghislain