Réduire l'écriture d'un tableau (Array)

Bonjour à tous je cherche un moyen pour réduire ce morceau de code en un code minimal (si c'est possible). Et si possible de mettre file_indicateur en constante mais ce n'est pas le plus important pour moi

Dim file_indicateur(5, 1) As Variant

    'file_indicateur(x, 0) = lig
    'file_indicateur(x, 1) = col

    file_indicateur(0, 0) = 2
    file_indicateur(0, 1) = 5

    file_indicateur(1, 0) = 3
    file_indicateur(1, 1) = 5

    file_indicateur(2, 0) = 4
    file_indicateur(2, 1) = 5

    file_indicateur(3, 0) = 5
    file_indicateur(3, 1) = 5

    file_indicateur(4, 0) = 8
    file_indicateur(4, 1) = 5

    file_indicateur(5, 0) = 9
    file_indicateur(5, 1) = 5

Merci

bonjour,

une proposition

    Dim file_indicateur(5, 1) As Variant

    'file_indicateur(x, 0) = lig
    'file_indicateur(x, 1) = col
    For i = 0 To 5
        file_indicateur(i, 0) = i + 2 + iif(i>=4,2,0)
        file_indicateur(i, 1) = 5
    Next i

Parfait merci beaucoup

Salut,

Et si possible de mettre file_indicateur en constante

A mon humble avis, pas de possibilité de mettre un Array() en constante sous VBA.

Merci pour ta réponse je m'en doutais