Sub recherchev()
Dim F1, F2 As Worksheet
Dim d As Variant
Set F1 = BASES
Set F2 = SOLDE
derlig = Cells(Rows.Count, "D").End(xlUp).Row
For i = 2 To derlig
d = Application.Match(Cells(i, 10), F2.Range("E:E"), 0)
If IsNumeric(d) Then Cells(i, 11) = F2.Cells(d, 6)
Next i
End Sub