XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre

Sub CopierCellulesVersAutreFichier()

    Dim CheminSource As String
    Dim CelluleDestination As Range
    
    
    Set CelluleDestination = Sheets("resultats").Range("B4")
    ' Spécifiez le chemin complet du fichier source
    CheminSource = ActiveWorkbook.Path & "\test.csv" '"C:\Users\HArnaud\Desktop\écriture form\retour résultats éval QCM\test.csv" '
  
    Workbooks.OpenText Filename:=CheminSource _
        , Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:=True
    
    ActiveSheet.Range("A2").Copy Destination:=CelluleDestination
    ActiveWorkbook.Close savechanges:=False
 
    Set CelluleDestination = Nothing
 
End Sub

Sub test_CSV()
Dim nomFIC$, vArr
'adapter le chemin & nom fichier
nomFIC = "C:\Users\STAPLE\Documents\tests\test.csv"
Set CSV_WB = Workbooks.Open(nomFIC, Format:=2, Local:=True)
vArr = CSV_WB.Worksheets(1).UsedRange: CSV_WB.Close (0)
'recopie en B4
ActiveSheet.Cells(4, 2) = vArr(2, 1) & " " & vArr(2, 2)
End Sub

Sub CopierCSV()
Dim chemin$, x, texte$, v$
chemin = ThisWorkbook.Path & "\test.csv"
x = FreeFile
Open chemin For Input As #x 'ouverture en lecture séquentielle
Line Input #x, texte: texte = "" '1ère ligne
If Not EOF(x) Then Line Input #x, texte 'si 2ème ligne
Close #x
If texte <> "" Then v = Split(texte, ";")(0)
ActiveSheet.[B4] = v
End Sub

Private Sub Workbook_Open()
'Dim fichier As Variant, tablo
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename("Fichiers CSV(*.csv),*.csv") 'choix du fichier CSV
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Range("B12:C" & Rows.Count).ClearContents 'RAZ
Workbooks.Open fichier, Local:=True
tablo = ActiveWorkbook.Sheets(1).[M1:CJ2] 'plage modifiable

ActiveWorkbook.Close
[B12].Resize(UBound(tablo, 2), 2) = Application.Transpose(tablo)
End Sub

Private Sub Workbook_Open()
Dim fichier As Variant, plage As Range, cc%, col%, x, n, a(), texte$, s, i&
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename("Fichiers CSV(*.csv),*.csv") 'choix du fichier CSV
If fichier = False Then Exit Sub
Set plage = [M1:CJ1]
cc = plage.Columns.Count
col = plage.Column
x = FreeFile
Open fichier For Input As #x 'ouverture en lecture séquentielle
On Error Resume Next
For n = 0 To 1
    ReDim a(1 To cc, 1 To 1)
    Line Input #x, texte
    texte = Replace(Replace(Replace(texte, "à ", "à"), "é", "è"), "è", "è") 'adapter aux besoins
    s = Split(texte, ";")
    For i = 1 To UBound(a)
        a(i, 1) = s(i + col - 2)
    Next i
    [B12].Offset(, n).Resize(UBound(a)) = a
Next n
End Sub

Private Sub Workbook_Open()
Dim fichier As Variant, tablo1, tablo2
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename("Fichiers CSV(*.csv),*.csv") 'choix du fichier CSV
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Range("B12:C" & Rows.Count).ClearContents 'RAZ
Workbooks.Open fichier, Local:=True
tablo1 = ActiveWorkbook.Sheets(1).[A1:L2] 'plage modifiable
tablo2 = ActiveWorkbook.Sheets(1).[M1:CJ2] 'plage modifiable
ActiveWorkbook.Close
[B4] = tablo1(2, 1)
[B5] = tablo1(2, 2)
[B6] = tablo1(2, 5) 'ou tablo1(2, 3) ?
[B7] = tablo1(2, 4)
[B8] = tablo1(2, 6)
[B12].Resize(UBound(tablo2, 2), 2) = Application.Transpose(tablo2)
End Sub