vba mise a jour 2 plages par corespondance

    Dim i As Long, L As Long, tblbase, tblactif

    L = Sheets("msgin").Range("A65536").End(xlUp).Row
    tblbase = Worksheets("msgin").Range("A1:B" & L)
   L = Sheets("actif").Range("R65536").End(xlUp).Row
    tblactif = Worksheets("actif").Range("R2:S" & L)
    For i = 1 To UBound(tblbase, 1)
        For L = 1 To UBound(tblactif, 1)
            If tblactif(L, 1) = tblbase(i, 1) Then
                tblactif(L, 2) = tblbase(i, 2) 'ou  tblactif(L, 2) = tblactif(L, 2) & "/" & tblbase(i, 2)
                Exit For
            End If
        Next L
    Next i
   
    Sheets("ACTIF").Range("R2").Resize(UBound(tblactif, 1), UBound(tblactif, 2)) = tblactif