Dim i As Integer, v As Variant
With Workbooks("import fichier export.xlsm").Worksheets("export")
For i = 4 To 227
v = Application.VLookup(.Cells(i, 2), Workbooks("DONNEES.xlsx").Sheets(1).Range("A15:R999"), 18, 0)
.Cells(i, 7) = IIf(IsError(v), 0, v)
Next
End With