Private Sub CommandButton1_Click()
Dim DerLig As Long
'identifie la ligne de la dernière cellule non-vide de la colonne A
DerLig = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
With Range("B2:B" & DerLig)
'.FormulaR1C1 = "=VLOOKUP(RC[-1],Feuil1!R2C1:R" & DerLig & "C2,2,0)"
'Formule modifiée pour éviter les #N/A
.FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-1],Feuil1!R2C1:R" _
& DerLig & "C2,2,0)),"""",VLOOKUP(RC[-1],Feuil1!R2C1:R" _
& DerLig & "C2,2,0))"
' transforme les formules en valeurs
.Value = .Value
End With
End Sub