L'indice n'appartient pas à la selection ( boucle while )

Bonjour,

voila je souhaiterais faire un parcours de ligne pour une colonne précise, et pour les valeurs de cette colonne, vérifier que la soustraction de la valeur à ma date soit bien inférieur à 6, cependant lors de l’exécution, problème, " l'indice n'appartient pas à la sélection ", or ici je ne copie pas de fichier (comme sur la plupart des topics avec cette erreur), je fait juste un test étant en train de m’initier à ce langage, pourriez vous m'aider ?

Private Sub BoutonLien_Click()

Dim anneedate As Integer

anneedate = Year(Now())

Dim i As Integer
i = 4

While Workbooks("peri.xlsx").Sheet("Statistique_CAF_1").Range("B" & i) <> ""
    If (anneedate - Range("B" & i).Value) <= 6 Then
        ThisWorkbooks.Sheets("Arrivee").Range("A" & i).Value = anneedate - Range("B" & i).Value
    End If
    i = i+1
Wend
End Sub

Merci d'avance