fichier=chemin & fichier
If Dir(fichier) = "" Then
ActiveWorkbook.SaveAs Filename:=Chemin
Else
If MsgBox("Ce fichier existe déjà. Désirez-vous l'écraser ?" _
, vbCritical + vbYesNo, "Attention") = vbYes Then
'Si tu réponds oui, fichier écrasé
ThisWorkbook.SaveCopyAs Filename:=xxx
End If
End If