Je ferai un champs supplémentaire (autre colonne) à l'extérieur du tableau
en renvoyant une valeur "Gras" et "Non gras" et faire ensuite un tri sur cette colonne
Faire une boucle ligne 1 à fin de tableau
tester si cellule en gras
If activecell.Font.Bold = True Then
activecell.offset(0,4).value="Gras"
Else activecell.offset(0,4).value="Non Gras"
End If
Enfin y a peut-être plus direct mais voilà comment je procèderai
Dans mon exemple le champs rajouter se trouve 4 colonnes plus à droite de la cellule active testé