Ajouter des données fichiers csv dans un fichier excel

Titre	Référence	Etat	Constat émis par	Sce-Section 	Date du constat	Description du constat	Action immédiate réalisée	Processus	Catégorie PAC	Sce-Section propriétaire	Date RRC	Commentaires RRC : actions	Échéance	Pour RMPAC 

Titre	Référence	Créateur	Date de création	Suivi des étapes	Constat émis par	Service-Section émétteur	Source du constat	Date du constat	Découvert à l'occasion de	Famille d'activité réalisée	Description du constat	Action immédiate réalisée	Tranche	Etat de tranche	Local	Système élémentaire	Repère fonctionnel	Numéro de DI	OI Source	Commentaire ou proposition émetteur	Avis hiérarchique demandé	Information conduite en quart	Commentaire hiérarchique	Ligne de défense	Catégorie	Processus	Service-Section concerné	Nature du constat	Avis commentaires actions immédiates de la conduite	Catégorie PAC	Type d'analyse	Service-Section propriétaire	Code événement	Code déclaratif	Numéro fiche Saphir	Commentaires RRC	Constat à reprendre ou à compléter	Pour validation RMPAC	Pour RMPAC du	Commentaires RMPAC	Caractérisation validée en RMPAC	Date de validation RMPAC	Url du document

Sub import()
Dim myFso As Object, csvFile As Object
Dim csvLine As String, csvDelimiter As String, csvFileName As String, tabStr() As String
Dim i As Integer, iLigne As Integer, iColonne As Integer


'fichier texte à traiter
csvFileName = "C:\Users\JB0793DN\Documents\import\export CS VDOC.csv"
'délimiteur csv
csvDelimiter = ";"

'ouvrir le fichier CSV
Set myFso = CreateObject("Scripting.FileSystemObject")
Set csvFile = myFso.OpenTextFile(csvFileName)

'tant qu'on est pas à la fin du fichier CSV (boucle sur chaque ligne)
While Not csvFile.AtEndOfStream
    iLigne = iLigne + 1
    iColonne = 0
   'lire la ligne suivante
    csvLine = csvFile.ReadLine
    '"spliter" la ligne
    tabStr = Split(csvLine, csvDelimiter)
    'boucler sur chaque élément de la ligne
    For i = LBound(tabStr) To UBound(tabStr)
        iColonne = iColonne + 1
        Debug.Print "Ligne " & iLigne & ", Colonne " & iColonne & " --> " & tabStr(i)
        Next i
Wend

' fermer le fichier
csvFile.Close
Set csvFile = Nothing: Set myFso = Nothing
End Sub

Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True

Application.Workbooks.Open NomFichier(cmpt), Local:=True