probleme vba : l'indice n'appartient pas à la selection

Sub essai()
Dim test() As String
Sheets("mafeuille").Activate
i = 0
For j = 1 To Sheets("mafeuille").Range("A2").End(xlDown).Row
Redim Preserve test(j - 1)
i = i + 1
If Cells(i, 15) = 1 Then
test(j - 1) = Sheets("mafeuille").Cells(i, 1).Value
MsgBox test(j)
End If


Next j

End Sub

Sub essai()
Dim test() As String
Dim x As Integer
Dim i As Integer
Dim mafeuille As Worksheet
x = 0
Set mafeuille = Worksheets("Feuil1")
   With mafeuille
      For i = 1 To .Range("A2").End(xlDown).Row
         
                  If .Cells(i, 2) = 1 Then
                  ReDim Preserve test(x)
                        test(x) = .Cells(i, 1).Value
                        MsgBox test(x)
                        x = x + 1
                  End If
      Next i
      End With
End Sub