Prendre données entre deux classeurs

Option Explicit
Sub test()
Dim wb As Workbook, ws As Worksheet
Dim wb2 As Workbook, ws2 As Worksheet
Dim last_source As Range, last_base As Range
Dim row_source As Range, row_base As Range
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
Set wb = Workbooks("Base de données")
Set ws = wb.Worksheets("SOURCE")
Set wb2 = Workbooks("SOURCECHERRE")
Set ws2 = wb2.Worksheets("Cherre")
Set last_source = ws.Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Set last_base = ws2.Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each row_source In last_source
    For Each row_base In last_base
        DoEvents
        If row_source.Value = row_base.Value Then
            row_source.Offset(0, 4).Value = row_base.Offset(0, 3).Value
            Exit For
        End If
    Next row_base
Next row_source
With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With
End Sub