Insérer valeur multi cellules excel dans Access avec formulaire

Name = "'" & MySheet.Range("A1").Value & "'"
Nom = chr(34) & MySheet.Range("B3").Value & chr(34)
ect...

cSQL = "insert into [Simon] ( [champ1], [champ2], [champ3], [champ4], [champ5]  )" & _ 
"values (" & Chr(34) & Name & Chr(34) & ", " & Chr(34) & Nom & Chr(34) & "," & Chr(34) & Age & Chr(34) & "," & Chr(34) & PostCode & Chr(34) & "," & Chr(34) & Ville & Chr(34) & ");"

    Dim i as integer
    Dim MyArray() as String

    'remplissage de MyArray
    '...

    cSQL = "insert into [Simon] ( [champ1], [champ2], [champ3], [champ4], [champ5]  ) values ("

    for i = 0 to Ubound(MyArray)
        cSQL = cSQL & chr(34) & MyArray(i) & "', "
    next i
    cSQL = left(cSQL, Len(cSQL) - 2) & ");"
DoCmd.RunSQL cSQL

    'Plusieurs dims
    Dim a, b, c, d, e, aDim, anotherDim as String
    a = "1"
    b = "2"
    c = "3"

    'Un seul dim qui est un tableau
    Dim tab() as String
    tab(0) = "1"
    tab(1) = "2"
    tab(2) = "3"

    Dim i as integer
    i = 3
    tab(i) = "4"

    Dim tab() as String
    Dim compteur as integer

    'on remplis le tableau
    for compteur = 0 to 10
        tab(compteur) = "compteur n°" & compteur
    next compteur

    'on accède au tableau
    for compteur = 0 to 10
        msgbox tab(compteur)
    next compteur

'On commence par initialiser la valeur cSQL
cSQL = "insert into [Simon] ( [champ1], [champ2], [champ3], [champ4], [champ5]  ) values ("
'A partir de ce string, on va concaténer pour rajouter les valeurs qu'on veut insert

'Ubound(MyArray) renvoie vers la dimension de ton tableau dans le cas ou ton tableau est à une dimension (CAD tab(ligne) et pas tab(ligne)(colonne))
'Donc, on boucle de 0 à la fin de ton tableau
for i = 0 to Ubound(MyArray)
    'avec cette ligne, on dit que cSQL est égal à la concaténation de la valeur précédente de cSQL avec la valeur de MyArray et enfin le string "', " (qui est la virgule après une valeur de INSERT into x (a, b) VALUE (c, d);
    cSQL = cSQL & chr(34) & MyArray(i) & "', "
next i

'Cependant, quand on arrive ici, ca signifie qu'on a 
' "INSERT INTO x(a,b) VALUES ('c', 'd', "
'On retire donc les deux derniers caractères du string, et on y rajoute la parenthèse et le point virgule qui est la fin de ta requête SQL
cSQL = left(cSQL, Len(cSQL) - 2) & ");"

Private Sub Commande1_Click()

Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet


Dim Filename As String
Dim NomTableau As Variant
Dim i As Integer
    
Filename = OpenFile()
 
Set MyExcel = CreateObject("excel.application")
Set MyFile = MyExcel.Workbooks.Open(Filename)
'Set MyFile = Filename
Set MySheet = MyFile.Sheets("Feuil1")


DoCmd.SetWarnings False

NomTableau = Array(Range("A1").Value, Range("C2").Value, Range("B3").Value)
 
 
cSQL = "insert into [Simon] ( [champ1], [champ2], [champ3]  ) values ("

For i = 0 To 2
    
   
cSQL = cSQL & Chr(34) & NomTableau(i) & "', "
'cSQL = cSQL & Chr(34) & NomTableau(i) & "', "
    Next i
    
cSQL = Left(cSQL, Len(cSQL) - 2) & ");"

DoCmd.RunSQL cSQL
 
 
DoCmd.SetWarnings True
Set oWSht = Nothing
Set oWbk = Nothing
Set oApp = Nothing
End Sub

Function OpenFile() As String

    Dim Finput As FileDialog
    Set Finput = Application.FileDialog(msoFileDialogOpen)
    Finput.Show
    OpenFile = Finput.SelectedItems(1)
End Function