Sub Convert()
Dim Chemin As String, Nom As String
Chemin = "F:\" 'à adapter
Nom = "Tournée du " & Format(Date, "DDMMYY")
Feuil2.Cells.Clear: Feuil2.Name = Nom
With Feuil1
.Columns("h:h").Copy Feuil2.[a1]
.Columns("E:E").Copy Feuil2.[b1]
.Columns("i:i").Copy Feuil2.[c1]
.Columns("K:K").Copy Feuil2.[g1]
.Columns("J:J").Copy Feuil2.[h1]
Application.CutCopyMode = False
End With
Feuil2.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & Nom, FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Close
End Sub