Ne garder que les lettres

Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer, j As Integer
    Dim texte  As String
    Dim Ix As Integer
    
    'on supprime les crochets on les remplace par #
   texte = Replace(Range("A1"), "[", "#")
   texte = Replace(texte, "]", "#")
   Tableau = Split(texte, "#")
    
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
       Debug.Print Tableau(i)
       Ix = Ix + 1 'on compte les occurences
    Next i
For j = 1 To Ix - 1 Step 2 'on ne prend que les impairs
Range("B1").Value = Range("B1").Value & Tableau(j) & ", " 'on ajoute une virgule entre les noms
   Next
   Range("B1").Value = Left(Range("B1").Value, Len(Range("B1").Value) - 2) 'supprime la dernière virgule et l'espace
End Sub

Sub extract()
col = 2 'colonne des cellule à analyser
For i = 1 To Cells(66536, col).End(xlUp).Row
    If (i >= 3 And i <= 8) Or (i >= 12 And i <= 16) Then
    st = Cells(i, col).Value
        If st <> "" Then
            For j = 1 To Len(st)
                If Mid(st, j, 1) = "[" Then
                deb = j + 1
                nb = 1
                    Do While Mid(st, deb + nb, 1) <> "]"
                    nb = nb + 1
                    Loop
                        Select Case i
                        Case Is <= 8
                            For k = 20 To 49
                            If Range("B" & k).Value = "" Then
                            lig = k
                            GoTo nex
                            End If
                            Next k
                        Case Is >= 12
                            For l = 50 To 65536
                            If Range("B" & l).Value = "" Then
                            lig = l
                            GoTo nex
                            End If
                            Next l
                        End Select
nex:
                Cells(lig, col) = Mid(st, deb, nb)
                j = j + nb
                End If
            Next j
        End If
    End If
Next i
End Sub