Name = MySheet.Range("A1").Value
Nom = MySheet.Range("B3").Value
Age = MySheet.Range("B4").Value
PostCode = MySheet.Range("D4").Value
Ville = MySheet.Range("F4").Value
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) & ");"
DoCmd.RunSQL cSQL