Private Sub CommandButton2_Click()
Dim z As Integer
Dim y As Integer
Dim nomexiste As Boolean
Dim Res As Variant
For z = 1 To Range("A65536").End(xlUp).Row
If Not IsEmpty(Cells(z, 1)) Then
For y = 1 To Range("A65536").End(xlUp).Row
With Sheets("RESULTAT")
Res = WorksheetFunction.VLookup(.Cells(y, 1).Value, Sheets("BASE").Range("A2:A9"), 1, False)
If Not IsError(Res) Then .Cells(y, 1).Value = Res
End With
With Sheets("RESULTAT")
.Cells(y, 2).Value = WorksheetFunction.VLookup(.Cells(y, 1).Value, Sheets("BASE").Range("A2:B9"), 2, False)
End With
Next y
End If
Next z
End Sub