Comparaison date + array

Bonjour à tous,

j'ai pour objectif de parcourir un ensemble de date et de récupérer celle arrivant d'ici 1 semaine en vue d'une action à faire

j'ai donc établi la macro suivante qui:

1) compare les dates pour chaque ligne

2) récupère certaines données lié à la ligne répondant aux critères

3) mettre cela dans un array

purriez me valider deja la formulation de comparaison date pas sur d'etre correct dans la formulation

comment mettre les rng dans un array

je ne suis pas encore très à l'aise avec les array et ai donc du me tromper dans les déclarations de variable donc si quelqu'un pouvait m'éclairer, merci par avance

Private Sub CheckDeadlines_Click()
Dim Rep_page As Worksheet
Dim Fin As Integer
Dim i As Integer
Dim Rng1 As String, Rng2 As String, Rng3 As String

Set Rep_page = Worksheets("Reporting")
Fin = Rep_page.Range("A" & Rows.Count).End(xlUp).Row

For i = 0 To Fin
If Date <= Rep_page.Cells(i, 5) And Rep_page.Cells(i, 5) <= DateAdd("WW", 1, Date) Then

Rng1 = Rep_page.Cells(i, 1)
Rng2 = Rep_page.Cells(i, 2)
Rng3 = Rep_page.Cells(i, 5)

  End If
Next i

End Sub