Formules par VBA

Sub insere_recherchev()
Dim ligne, colonne As Long
Dim colrecherche, i As Long
Dim code As String

For ligne = 1 To 20
    For colonne = 1 To 10
        
        With Sheets("Import")
            code = .Cells(ligne + 4, 2)
            colrecherche = .Cells(2, colonne + 2)
        End With
               
        compteur = 1
        
        While Sheets("Liste Code").Cells(compteur + 4, 1) <> code
            compteur = compteur + 1
        Wend
        
        If Sheets("Liste Code").Cells(compteur + 4, colrecherche) <> " - " Then
            Sheets("Import").Cells(ligne + 4, colonne + 2) = Sheets("Import").Cells(ligne + 4, 1) * Sheets("Liste Code").Cells(compteur + 4, colrecherche)
        Else
            Sheets("Import").Cells(ligne + 4, colonne + 2) = 0
        End If
        
    Next colonne
Next ligne
End Sub 

Option Explicit 

Sub calculer_montantsactionsparcode() 
Dim Derlig As Integer, Dercol_li As Byte, T_liste() 
Dim D_liste As Object, Lig As Integer 
Dim T_import(), Dercol_im As Byte 
Dim Cptr As Integer, Code As String, Col As Byte 
     'pour essai rapidité à supprimer à la livraison 
     Dim Start As Single 
     Start = Time 

Application.ScreenUpdating = False 
' -------Mise en mémoire RAM des données 
With Sheets("liste code") 
     Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row 
     Dercol_li = .Rows(4).Find("*", , , , , xlPrevious).Column 
     'mémorisation tableau des coeffs des actions 
     T_liste = .Range(.Cells(5, "B"), .Cells(Derlig, Dercol_li)).Value 
     'creation dico couple code ligne 
     Set D_liste = CreateObject("scripting.dictionary") 
     For Lig = 5 To Derlig 
          D_liste.Add .Cells(Lig, "A").Value, Lig - 4 
     Next 
End With 

With Sheets("import") 
     Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row 
     Dercol_im = .Rows(3).Find("*", , , , , xlPrevious).Column 
      'mémorisation tableau du montant des actions 
     T_import = .Range(.Cells(5, "A"), .Cells(Derlig, Dercol_im)).Value 


'------Remplissage du tableau des actions importées 
For Cptr = 1 To UBound(T_import) 
     Code = T_import(Cptr, 2) 
     If D_liste.exists(Code) Then 
          Lig = D_liste.Item(Code) 
          For Col = 1 To Dercol_li - 1 
               If IsNumeric(T_liste(Lig, Col)) Then 
                    T_import(Cptr, Col + 2) = T_liste(Lig, Col) * (T_import(Cptr, 1)) 
               Else 
                    T_import(Cptr, Col + 2) = T_liste(Lig, Col) 
               End If 
          Next 
     Else 
               T_import(Cptr, 2) = T_import(Cptr, 2) & " -code inconnu!" 
     End If 
Next 


  '------Restitution des montants suivant code et coeff 
  .Range("A5").Resize(UBound(T_import), Dercol_im) = T_import 
  .Activate 
End With 
     'pour essai rapidité à supprimer à la livraison 
     Application.ScreenUpdating = False 
     MsgBox ("calculs effectués en " & Time - Start & "  .secondes") 
End Sub 

Nota: j'ai considéré qu'il n'y avait pas de doublons dans la liste des codes feuilles liste et feuille import
si un code inconnu es importé, l'erreur est indiquée dans le tableau feuille import à ligne concernée

Sub compare_bases()

Dim ligne, colonne, i, derlig As Integer

i = 1
derlig = Sheets(1).Range("A65500").End(xlUp).Row
For ligne = 2 To derlig
    For colonne = 1 To 12

        With Sheets(1)
            If .Cells(ligne, colonne) <> Sheets(2).Cells(ligne, colonne) Then
                If colonne <> 2 Then
                    Sheets(3).Cells(i, 1) = .Cells(ligne, 1)
                    Sheets(3).Cells(i, 2) = .Cells(1, colonne) & " à la ligne " & ligne
                    i = i + 1
                    Exit For
                End If
            End If
        End With
        
    Next
Next

End Sub