Mettre du texte en gras en couleur

Bonjour à tous,

J'ai un tableau avec des codes article dans la colonne A et certains de ces codes sont en gras.

J'ai besoin de mettre tous les codes gras en couleur vert. Comment puis-je procéder sans revoir toute la mise en forme à la main ? Merci de votre aide

Salut,

Le petit bout de code ci-dessous fait ce que tu souhaites :

Sub Mise_en_Vert()
Dim derLig As Long
Dim i As Long

derLig = Range("A1").End(xlDown).Row
For i = 1 To derLig
    If Range("A" & i).Font.Bold = True Then
    Range("A" & i).Font.ThemeColor = xlThemeColorAccent6
    End If
Next i

End Sub

Je te mets mon fichier de test en PJ

J'ai réussi

Merci beaucoup !