XL 2013 encadré les parties entre guillemet de texte avec caractère particulier

Sub test()
Const separateurImprobable As String = "~#'@¤%µ*"
Dim t As String, i As Long, flagStr As Long, res As String
    
    't = "    If toto = "" ' """" tutu """""" And dodo = """" Then"
    t = "tutu = ""toto & """""""" & dada & """""""" "" & """"""""""turlututu"""""""""""
       
    For i = 1 To Len(t)
        If Mid(t, i, 1) = """" Then
            If Not flagStr Then
                res = res & separateurImprobable & """"
            Else
                res = res & """" & separateurImprobable
            End If
            flagStr = Not flagStr
        Else
            res = res & Mid(t, i, 1)
        End If
    Next i
    
    res = Replace(res, """" & separateurImprobable & separateurImprobable & """", """""")
    res = Replace(res, separateurImprobable, "|")
    
    Debug.Print t
    Debug.Print res
    
    
End Sub

tutu = |"toto"| & |""""| & dada & |"""" "| & |"""""turlututu"""""|

tutu = "toto" & """" & dada & """" " & """""turlututu"""""

Sub test()
    If toto = " ' "" tutu """ And dodo = "" Then
        If toto = 10 And tutu = " "" taratata "" " Then
            tutu = "toto" & """" & dada & """"" " & """""turlututu"""""
        End If
    End If
titi = """tata"""
If tutu = """""""taratata""""""" Then machin = " '"" " & truc & " "" ' "

End If

Sub ModifierModuleAvecBarres()
    Dim comp As Object, modName As String, code As String
    Dim lignes() As String, ligne As String, newLigne As String
    Dim i As Long
    
    modName = InputBox("Nom du module à modifier (ex: Module1)", "Encadrement de chaînes")
    If modName = "" Then Exit Sub

    On Error Resume Next
    Set comp = ThisWorkbook.VBProject.VBComponents(modName)
    If comp Is Nothing Then
        MsgBox "Module introuvable.", vbCritical
        Exit Sub
    End If
    On Error GoTo 0

    code = comp.CodeModule.Lines(1, comp.CodeModule.CountOfLines)
    lignes = Split(code, vbNewLine)
    
    comp.CodeModule.DeleteLines 1, comp.CodeModule.CountOfLines

    For i = 0 To UBound(lignes)
        newLigne = EncadrerGuillemets(lignes(i))
        comp.CodeModule.InsertLines comp.CodeModule.CountOfLines + 1, newLigne
    Next i

    MsgBox "Module '" & modName & "' modifié avec succès.", vbInformation
End Sub

Function EncadrerGuillemets(texte As String) As String
    Dim i As Long
    Dim c As String
    Dim dansChaine As Boolean
    Dim buffer As String
    Dim resultat As String

    i = 1
    Do While i <= Len(texte)
        c = Mid(texte, i, 1)
        
        If c = """" Then
            buffer = buffer & c
            If i < Len(texte) And Mid(texte, i + 1, 1) = """" Then
                buffer = buffer & """"
                i = i + 1
            Else
                If dansChaine Then
                    resultat = resultat & "|" & buffer & "|"
                    buffer = ""
                    dansChaine = False
                Else
                    dansChaine = True
                    buffer = """"
                End If
            End If
        Else
            If dansChaine Then
                buffer = buffer & c
            Else
                resultat = resultat & c
            End If
        End If
        i = i + 1
    Loop
    EncadrerGuillemets = resultat
End Function

Const dbG = "©"
Const fiG = "®"
'===========================================================================================================
' ///////////////////////////////Fonction pour mettre des caractères de repère//////////////////////////////
'                               (avant et apres les expressions entre guillemets
'-----------------------------------------------------------------------------------------------------------
Function Encadrer2$(ByVal Texte$)
    Dim gui$, gui2$, res$, i&, n&, cpt&, c$, cc$
    'collaborateur :
    '@mapomme
    '@mromain
    gui = """"
    n = InStr(Texte, gui)
    If n = 0 Then
        Encadrer2 = Texte
        Exit Function
    End If
    cpt = 1
    res = Left(Texte, n - 1) & dbG & gui
    For i = n + 1 To Len(Texte)
        c = Mid(Texte, i, 1): cc = Mid(Texte, i + 1, 1)
        If c <> gui Then
            res = res & c
        Else
            If cpt = 0 Then
                res = res & dbG & gui
                cpt = 1
            Else
                If cc = gui Then
                    res = res & gui & gui
                    i = i + 1
                Else
                    res = res & gui & fiG
                    cpt = 0
                End If
            End If
        End If
    Next i
    Encadrer2 = res
End Function
'===========================================================================================================