Problème L'indice n'appartient à la sélection boucle for

Bonjour et merci d'avance pour le temps que vous prendrez pour lire mon petit soucis,

Je souhaiterais pour chaque code postal dans la colonne 1 insérer le département dans la colonne 2 en me basant donc sur les 2 premier chiffre du code postal

J'ai créé un petit quelque chose mais on me renvoie le message d'erreur " L'indice n'appartient pas à la sélection " , la première itération fonctionne mais pas la suivante

J'ai utilisé un tableau 2D ou j'ai essayé d'insérer 2 départements pour voir et donc la première ligne fonctionne, mais à la fin de l'itération j'ai un message d'erreur

voici ce que j'ai essayé de faire, auriez- vous des pistes?

Public Sub dep()

Dim departement As String
Dim zip As String
Dim tabdep(1 To 94, 0 To 1) 'tableau département /code postal'

tabdep(1, 0) = "1*"
tabdep(1, 1) = "Ain"
tabdep(85, 0) = "85*"
tabdep(85, 1) = "Vendée"

Application.ScreenUpdating = False

With Application.Worksheets("Feuilledepartement")
    i = 1
            While Cells(i, 1) <> ""
                For numdep = 1 To 95

                    If Cells(i, 1) Like tabdep(numdep, 0) Then
                           Cells(i, 2) = tabdep(numdep, 1)

                    End If

                Next

            i = i + 1

            Wend

End With

Application.ScreenUpdating = True

End Sub

Merci ! Bonne journée et stay safe comme on dit

Bon problème résolu finalement !

Je suis passé par le fonction left pour récupérer que les 2 premiers caractères de mon code postal

Public Sub dep()

Dim departement As String
Dim zip
Dim tabdep(1 To 95, 0 To 1) 'tableau département /code postal'

tabdep(1, 0) = "01"
tabdep(1, 1) = "An"
tabdep(85, 0) = "85"
tabdep(85, 1) = "Vendée"

i = 1
        While Cells(i, 1) <> ""
            zip = Left(Cells(i, 1), 2)
            numdep = 1
            While numdep <= 95

                If zip = tabdep(numdep, 0) Then

                Cells(i, 2).Value = tabdep(numdep, 1)

                End If
                numdep = numdep + 1
            Wend

        i = i + 1

        Wend

End Sub