REMPLACER UN TEXTE PAR UNE IMAGE DANS UN RICHTEXTBOX

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

private sub remplace(texte as string)
    dim remp as string
    remp = " le texte a remplacer par l'image "       ' /!\  le premier charactere doit etre identhique a toutes les chaines a remplacer
    Dim dep As Long
    Dim l
    Dim temp
    dep = 0
    For l = 1 To Len(texte)
        temp = Mid$(texte, l, 1)
        If temp = mid$(remp,1,1) Then
            Clipboard.Clear
            
            If Mid$(texte, l, len(remp)) = remp Then
                Clipboard.SetData Picture1.Picture
                SendMessage RichTextBox1.hWnd, &H302, 0, 0
                dep = len(remp) - 1
            End If
            ' otan de comparaison ke necessaire
            ...
            ...
        Else
            If dep = 0 Then
                RichTextBox1.SelText = temp
            Else
                dep = dep - 1
            End If
        End If
    Next l
end sub  

' pour appeler le sub: remplace " votre texte a analiser "