XL pour MAC FONCTION RECHERCHE EN VBA

Sub test()
Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
    End With
Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
    End With
Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
    End With
Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:C100"), 2, False)
        .Range("C" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:C100"), 3, False)
    End With
Next i

End Sub