Complément (Vba Indenter Interface) 4.0b

    ReS = Join(TbL, vbCrLf)
    htmlCod = res2
    OriginalHtmlCode = PrE.outerhtml
    'Debug.Print ReS
 
    ReS = MesCommentaires(ReS)

    TextBox2 = ReS
    IndentCode = ReS
    Unload barprogress
End Function

Private Function MesCommentaires(ReS As Variant) As String
    Dim TabLig() As String
    Dim i As Long
    Dim k As Long
    Dim p As Long
   
    TabLig = Split(ReS, vbCrLf)
    p = xlNone

    For i = LBound(TabLig) + 1 To UBound(TabLig)
        k = i - 1
        Do While k >= 1 And (Left(Trim(TabLig(k)), 1) = "'" Or Len(Trim(TabLig(k))) = 0)
            If Not Len(Trim(TabLig(k))) = 0 Then
                If p = xlNone Then
                    For p = 1 To Len(TabLig(i))
                        If Not Mid(TabLig(i), p, 1) = " " Then Exit For
                    Next p
                    p = p - 1
                End If
                TabLig(k) = Left(TabLig(i), p) & Trim(TabLig(k))
            End If
           
            k = k - 1
        Loop
        p = xlNone
    Next i
   
    MesCommentaires = Join(TabLig, vbCrLf)
End Function

Option Explicit

'--------------
'C'est le SUB A
'--------------
Sub a()
    Dim i As Integer

    '----
    'test
    '----
    If i = 1 Then
        i = 2

    '-----
    'Sinon
    '-----
    Else
        i = 0
    End If

    Select Case i
        '-----
        'Cas 1
        '-----
        Case 1
            i = 2
          
        '-----
        'Cas 2
        '-----
        Case 2
            i = 3
    End Select
End Sub

Sub Auto_Open()
    ' Active "Microsoft Visual Basic for Applications Extensibility 5.3"
    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 3
End Sub