VBA Tableau de String Indice n'appartient pas

Bonjour tout le monde.

Je suis en train de travailler sur un code VBA qui me retourne "L'indice n'appartient pas à la selection". Le problème est que je ne sais pas comment indicer le tableau en question (Keywords) de base. Je vous donne le code :

If IsCapitalized Then
    a = -1
    For i = 0 To (UBound(TablTemp) - LBound(TablTemp) - 1)
        If TablTemp(i) = StrConv(TablTemp(i), vbProperCase) Or a = -1 Then
            a = a + 1
            Keywords(a) = StrConv(TablTemp(i), vbProperCase)
        Else
            Keywords(a) = Keywords(a) & " " & TablTemp(i)
        End If
    Next i
Else
    Keywords = Split(StrConv(Range("G" & ILine).Value, vbProperCase), " ")
End If

J'ai essayé avec a = 0 en initialisation, mais dans le debut, on ne m'indique String (0 to x).

Comment faire ?

Merci à tous les forumeurs :)