Sub WriteToCSVFiles()
Dim Path As String, fichier As String, complet As String
Dim FileNum1 As Integer, i As Integer
Dim test As Boolean
'création, ouverture et définition des fichiers de sortie
Path = "https://masociete.sharepoint.com/sites/Production/Gestion%20de%20Projet/test/"
fichier = "test.csv"
complet = Path & fichier
Open complet For Output As #1
'parcours des colonnes voulues
For i = 1 To 12
strLine = strLine & ThisWorkbook.Sheets("Param").Cells(38, i).Value & ","
Next i
Print #1, strLine
Close #1
End Sub