Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim x As Integer 'déclare la variable x
'boucle sur toutes les cellules éditées de la plage A1:A_fin (À adapter)
For Each cel In Range('A1:A' & Range('A65536').End(xlUp).Row)
For x = 1 To Len(cel.Value) 'boucle sur chaque caractère de la cellule
If cel.Characters(x, 1).Font.Bold = True Then 'si le caractère est gras
cel.Offset(0, 1).Value = 'y' 'place 'y' dans la cellule à droite
Exit For 'sort de la boucle des caractères
End If 'fin de la condition
Next x 'prochain caractère de la boucle
Next cel 'prochaine cellule de la boucle
End Sub