Création dynamique de variables

Bonjour à tous,

J'ai essayé de créer des variables numérique en utilisant une collection.

Public VarCol As New Collection
Sub CreationVarDyn()

' Rempli la collection
    VarCol.Add "vCol1", "1"
    VarCol.Add "vCol2", "2"
    VarCol.Add "vCol3", "3"
    VarCol.Add "vCol4", "4"
    VarCol.Add "vCol5", "5"
    VarCol.Add "vCol6", "6"

End Sub

Mais voila, en utilisant les éléments comme variable Boolean, je reçois une erreur :

objet requis

        For u = 0 To UBound(Word(0))
            VarCol(u + 1) = StrComp(Word(0)(u), Word(1)(u), vbTextCompare) = 0
        Next u

Merci d'avance.

Bonjour

Utilises un tableau

Dim VarCol(5) As Boolean

Bonjour Banzai64,

Merci.