Sub enregistrement_auto_Devis_SAV()
'Contrôler de la validité des symboles de la cellule
Dim Arr
Arr = Array(" ", "*", "?", ">", "<", ":", "", "/", "|")
'Utiliser le nom de livraison comme racine du nom de fichier
x = ActiveSheet.Range("G6").Value
'Récupérer le type de fichier (Dev / SAV / GAR)
y = ActiveSheet.Range("AG1").Value
'Indiquer le n° de fiche
z = ActiveSheet.Range("AG2").Value
'Remplacer chacun des élément par "_"
For Each elt In Arr
x = Replace(x, elt, "_")
Next
'Formater la date
MaDate = Format(Date, "YYYY_MM_dd_")
'Se placer dans le bon répertoire
ChDir "o:\SAV\DevisSAV"
'Enregistrer le fichier sous...
ActiveWorkbook.SaveAs Filename:=x & "_" & MaDate & y & "_" & z & ".xls"
End Sub