Copier/coller les valeurs d'1 fichier CSV vers un autre classeur

Bonjour,

Je ne suis pas experte en macro VBA mais j'essaie de me débrouiller pour en faire un peu. Je suis curieuse de nature et aime chercher la solution à un problème.
Mais j'avoue ma défaite car je parcours depuis plusieurs jours les forums de différents sites et n'arrive pas à trouver LA solution à mon besoin.

Je récupère un fichier d'extraction "export.csv" avec des données séparées par des ";" mais certaines cellules contiennent des données avec retour chariot (info utile pour plus tard).

Je souhaite customiser ce fichier de façon à avoir une mise en forme un peu plus sympa que le format basique CSV et surtout des entêtes de colonnes plus parlants.
J'ai créé un autre classeur "custom.xlsm" dans lequel se trouve une feuille "custom" où la 1ère ligne est déjà remplie avec entêtes de colonnes au format définitif.

Mon objectif est de créer une macro via un bouton dans un menu pour :
1- copier les valeurs du fichier "export.csv" sauf la 1ère ligne
2- coller seulement les valeurs, en démarrant mon collage spécial à partir de la 2ème ligne de la feuille "custom" du classeur "custom.xlsm".

Via 2 macro séparées le résultat obtenu n'était pas celui souhaité.
J'ai donc tenté d'enregistrer ma macro mais ça ne semble pas marcher pour le format du collage. Je me retrouve avec les données insérées à partir de la 2ème ligne mais sur une seule colonne : certains champs contenant des retours chariot se retrouvent séparés sur plusieurs lignes ...

La solution de contournement est de faire moi-même le copier/coller du fichier CSV sur une feuille "export" dans le classeur "custom.xlsm" puis de lancer une macro pour copier/coller les valeurs vers la feuille "custom".
Cette macro marche mais ce n'est qu'une solution de contournement.
La voici.

Macro qui marche pour copier/coller au sein d'un même ficher :

Sub Custom()

Dim i As Long
Dim ref As String
Dim rng1 As Range
Dim f As Worksheet
Dim llnglignemax As Long

    Set f = ActiveSheet

        'détermine la dernière ligne de la feuille "export"
        llnglignemax = Worksheets("export").Cells(Application.Rows.Count, 1).End(xlUp).Row
    
        'efface le contenu de la feuille "Custom" sauf la 1ère ligne
        Worksheets("Custom").Range("A2:AE10000").ClearContents
                
            i = 2
    
                'copie/colle la feuille "export" vers la feuille "Custom" en collage spécial des valeurs à partir de la 2ème ligne
                Worksheets("export").Range("A" & 2 & ":AE" & llnglignemax).Copy
                Worksheets("Custom").Range("A" & i).PasteSpecial xlPasteValues
                
                'Ajouter une bordure aux cellules sélectionnées
                'Worksheets("Custom").Selection.Borders.Value = 1
    
            While f.Cells(i, 1) <> ""
            i = i + 1
            Wend
        
    Set f = Nothing
End Sub

Ci-dessous la macro enregistrée qui copie la feuille du fichier CSV pour les coller dans une nouvelle feuille du classeur "custom.xlsm" mais elle ne me colle pas les données sur toutes les colonnes :

Sub Macro_enreg()
'
' Enregistrement_Macro

    Workbooks.Open Filename:= _
        "P:\export.csv"
    Cells.Select
    Selection.Copy
    Windows("Custom.xlsm").Activate
    Sheets("Custom").Select
    Sheets.Add
    Selection.Paste
End Sub

Et enfin une autre macro enregistrée pour déplacer la feuille du fichier CSV avant la feuille "custom". Mais là encore le contenu réparti sur les différentes colonnes est perdu ... :-(

Sub Move_Export()
'
' Déplacement_Export Macro
'
    Workbooks.Open Filename:= _
        "P:\POLE AQ PRODUIT\REVUE QUALITE PRODUIT\OUTILS de TRAVAIL\QMS - ENNOV\export.csv"
    Sheets("export").Select
    Sheets("export").Move Before:=Workbooks("Custom_extract_RQP_20170606_OK.xlsm" _
        ).Sheets(2)
End Sub

Si quelqu'un peut m'aider sur ce sujet, ce serait extra.

D'avance merci ! :-)