Option Explicit
Private Sub CommandButton1_Click()
Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row
If dlg = 1 And IsEmpty([A1]) Then Exit Sub
Dim cel As Range, pdt$, lig&
Application.ScreenUpdating = 0: Range("B1:B" & dlg) = Empty
With Worksheets("BASE")
For lig = 1 To dlg
pdt = Cells(lig, 1)
If pdt <> "" Then
Set cel = .Columns(1).Find(pdt, , -4163, 1, 1)
If cel Is Nothing Then
Cells(lig, 2) = "?"
Else
Cells(lig, 2) = Round(cel.Offset(, 3), 2)
End If
End If
Next lig
End With
ActiveCell.Select 'pour désélectionner le bouton
End Sub