Bonjour à tous,

Je souhaite créer une macro qui me permette de détecter des caractères en gras dans une cellule et de les remplacer en les entourant par des balises HTML.
J'ai réussi la première partir, à savoir détecter les caractères en gras :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Sub Bold()
          Dim C&, Rg As Range, VA$()
 
     With Cells(1).CurrentRegion.Columns(1)
             ReDim VA(1 To .Rows.Count, 0)
         For Each Rg In .Cells
             For C = 1 To Len(Rg.Value)
                 If Rg.Characters(C, 1).Font.Bold Then
                      VA(Rg.Row, 0) = "YES"
                     Exit For
                 End If
             Next
         Next
             .Offset(, 1).Value = VA
     End With
 End Sub

Pour le moment j'obtiens donc le mot "YES" dans une nouvelle colonne chaque fois qu'un caractères en gras est détecté.
Ce que je voudrais faire maintenant, c'est qu'au lieu de m'afficher ce mot, les caractères en gras soient remplacés par des balises HTML, ainsi test deviendrait <b>test</b>, tout en gardant bien sûr le reste de ma cellule intacte.
Et c'est là que ça pêche... Je débute en VBA, aussi je suis désolée pour ma naïveté, mais du coup je n'arrive pas à poursuivre ni à utiliser la fonction Replace...
Quelqu'un peut-il m'aider ?

Par avance merci