'en simplifiant un maximun:
'appel depuis la feuille active
'ceci en supposant que les données démarrent en ligne(1) colonne(A)
'sinon modifier le no de lig ici> AdresDesDonnees$ = Cells(1, 1).CurrentRegion.Address
'les fichiers seront nommés: FichCSVno.csv
'
'>>>>> IL TE RESTE A METTRE LE CHEMIN !!!!
'
Sub ExportDonneesFichCSV()
Dim RangeDonnees As Range, LigneCSV$, AdresDesDonnees$
Dim Chemin$, Fichier$
Dim Lig%, Col%, NbrDeLig%, NbrDeCol%
Chemin$ = "C:\NomDeTonDossier" '<<<< ICI METTRE LE CHEMIN DE DESTINATION <<<<<
AdresDesDonnees$ = Cells(1, 1).CurrentRegion.Address '<<<<<< Plage de données
'boucle save fichier csv
If Right(Chemin$, 1) <> "\" Then Chemin$ = Chemin$ & "\"
Set RangeDonnees = ActiveSheet.Range(AdresDesDonnees$)
NbrDeLig = RangeDonnees.Rows.Count
NbrDeCol = RangeDonnees.Columns.Count
For Lig = 1 To NbrDeLig
LigneCSV = "" 'lecture des données en colonne
For Col = 1 To NbrDeCol
LigneCSV = LigneCSV & RangeDonnees.Cells(Lig, Col).Value
If Col < NbrDeCol Then LigneCSV = LigneCSV & ";"
Next Col
Fichier$ = "FichCSV" & Lig & ".CSV" 'nom du fichier incrémenté
Open Chemin$ & Fichier$ For Output As #1
Print #1, LigneCSV: LigneCSV = ""
Close #1
Next Lig
End Sub