Sub ExportCsv()
Dim Plage As Range, Lign As Variant, Cel As Range, VCel As String
Set Plage = ActiveSheet.Range("A1:D10")
Open[B] ThisWorkbook.Path & "/" & [/B]Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".csv" For Output As #1
For Each Lign In Plage.Rows
VCel = ""
For Each Cel In Lign.Cells
VCel = VCel & Cel.Value & ";"
Next
Print #1, VCel
Next
Close
End Sub