Formule INDEX EQUIV - la convertir en MACRO

INDEX(Feuil1!F$1:F$1000

Sub Nougatine()
    lig = ActiveCell.Row
    If IsEmpty(Cells(lig, 5)) Then
        ActiveCell.Value = ""
    ElseIf Application.CountIf(Range("E1:E1000"), Range("E1")) > 0 Then
            ActiveCell.Value = Application.Index(Range("F1:F1000"), _
                Application.Match(Cells(lig, 5).Value, Range("E1:E1000"), 0))
    Else
        ActiveCell.Value = "?"
    End If
End Sub

Sub Test()
Dim cell As Range, c As Range
For Each cell In Range("E2:E" & Range("E1000").End(xlUp).Row)
    If cell.Value = "" Then
    cell.Offset(0, 1) = ""
    Else
    With Worksheets("page1").Range("E2:E" & Range("E2000").End(xlUp).Row)
    Set c = .Find(cell.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
        cell.Offset(0, 1) = c.Offset(0, 1)
        cell.Offset(0, 2) = c.Offset(0, 2)
        End If
    End With
    End If
Next cell
End Sub

Function trouv(Cel As Range, C As Range)
Dim DerLig As Long
With Sheets("page1")
    If IsEmpty(Cel) Then
        trouv = ""
    Else
        DerLig = .[E65000].End(xlUp).Row
        If Application.CountIf(.Range("E1:E" & DerLig), Cel) > 0 Then
            lig = Cel.Row
            col = IIf(C.Column = 6, 6, 7)
            trouv = Application.Index(.Range(.Cells(1, col), .Cells(DerLig, col)), _
                Application.Match(Cel.Value, .Range("E1:E" & DerLig), 0))
        Else
            trouv = "?"
        End If
    End If
End With
End Function

Range(Target.Offset(0, 1), Target.Offset(0, 2)) = "?"