j'utilise ce code pour sauvegarder mon fichier

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub enregistrement()
 
    Dim chemin As String
    chemin = Workbooks(ActiveWorkbook.Name).Path
    ActiveWorkbook.SaveAs Filename:=chemin & "\whist_La_marque.xls", _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
 
End Sub
mon problème est que à chaque fois je doit confirmer l'écrasement de la version précédente

j'aimerais connaitre le code qui permet de supprimer cette validation de l'écrasement du vieux fichier

Merci