vba mise a jour 2 plages par corespondance

[Bens7]

Bonjour a tous !!
J'ai un code qui fonctionne pour mettre a jour 2 plages dans 2 feuil differente [BOUTON VERT] mais avec une loop assez long sur des grosses plages.
j'ai essayer une autre méthode mais ça ne fonctionne pas [BOUTON ROUGE] mais étant novice je fait appel a vos lumières .
voici le fichier en pièces jointes
Merci vraiment

 

[Bebere]

bonjour
code à tester

    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

 

[Bens7]

imcopatibilite de type :
If tblactif(L, 1) = tblbase(i, 1) Then

 

[Bebere]

bonjour à tous
essaye avec le bouton vert