Bonjour !

Je demande votre aide puisque je n'arrive pas à résoudre mon problème ! En effet, j'ai réussi à coder pour pouvoir importer un fichier excel et le mettre dans un tableau de mon outil VBA.
Le hic, c'est que quand j'ajoute un tableau excel dans mon document excel, les lignes qui s'ajoutent ne prennent pas en compte les formules présentes dans mon tableau.

Du coup, j'ai essayé d’insérer mes formules RECHERCHEV dans mon code pour qu'au moment où je copie mon tableau soit copié également ma formule suivante dans la colonne 11 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveCell.Offset(0, 11).FormulaLocal = "= SIERREUR((RECHERCHEV([Voiture];TABLEAUVENTE;2;FAUX);Information manquante))"
Le code pour importer un tableau dans mon document est le suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub importerDATA()
    Dim nomFichier As String
    Dim wkbSrc As Workbook ' classeur à importer
    Dim wsSrc As Worksheet, wsCible As Worksheet
    Dim cellCible As Range
    Dim zoneImporter As Range
    Dim dernierNum As Integer, i As Integer
    Dim Lr As ListRow
        Feuil1.Unprotect
        Feuil2.Unprotect
    Set wsCible = ThisWorkbook.Worksheets("Base de données")
    nomFichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
    If nomFichier <> "Faux" Then
        Set wkbSrc = Workbooks.Open(nomFichier)
        Set wsSrc = wkbSrc.Worksheets(1)
 
        Set zoneImporter = Range(wsSrc.Range("A2"), wsSrc.Cells(derniereLigne(wsSrc), derniereColonne(wsSrc)))
        Set cellCible = wsCible.Cells(derniereLigne(wsCible, 18) + 1, 1)
 
 
        zoneImporter.Copy
        cellCible.PasteSpecial xlPasteValues
        cellCible.CurrentRegion.EntireRow.AutoFit
        Application.DisplayAlerts = False
        wkbSrc.Close False
        Application.DisplayAlerts = True
    End If
        Feuil1.Protect
    Feuil2.Protect
End Sub
Merci de votre aide !!!