Export XML

bonsoir

Pour exporter mes données en XML j'ai crée un bouton avec le code suivant

Sub LIAS1()
 ActiveWorkbook.XmlMaps("F6001_Mappage").Export URL:=ThisWorkbook.Path \& Range("M2")& ".xml"
 MsgBox "Fichier crée "

quelqu'un peut rectifier mon code svp ?