Bonjour,
Voici une petite macro pour récupérer tes valeurs sur Feuil1:
Option Base 1
Sub recup()
Dim i As Long, derLigne As Long, ind() As Long
derLigne = Sheets("forward").Range("g1").End(xlDown).Row
For i = 1 To derLigne
ReDim Preserve ind(i)
ind(i) = Sheets("forward").Cells(i, 7).Value
Next i
For i = 1 To derLigne
Sheets("Feuil1").Cells(i, 1).Value = ind(i)
Next i
End Sub
Cordialement,