VBA VLookup autre Workbooks

Sub Macro1()

Dim Test As String
Dim Dispo As String
Dim i As Integer
Dim wb_Proto As Workbook
Dim wb_DVP As Workbook


i = Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Rows.Count
 
Set wb_Proto = Workbooks("Test-Proto.xlsx")
Set wb_DVP = Workbooks("Test-DVP.xlsm")

'Set srchRange = book1.Sheets(4).Range(Cells(row1 + 2, 1).Address, Cells(row2, col1).Address)

Set Base = wb_Proto.Sheets(1).Columns("A:B")

For o = 2 To i
    If ActiveSheet.Cells(o, 2).Value = "II" Then
        If ActiveSheet.Cells(o, 4).Value <> "Available" Then
            Test = ActiveSheet.Cells(o, 1)
            Dispo = Application.WorksheetFunction.VLookup(Test, wb_Proto.Sheets(1).Range("A:B"), 2, False)
            If Dispo <> "" Then
                Cells(o, 3).HorizontalAlignment = xlCenter
                Cells(o, 3).VerticalAlignment = xlCenter
                Cells(o, 3).Value = "Available"
            End If
        End If
    End If
Next

wb_Proto.Close SaveChange = False
Set wb_Proto = Nothing

End Sub