Private Sub OK_Click()
SupLignesFiltreAuto ChoixSite.Value 'appel la sub de suppression avec le nom du site à supprimer
Unload UserForm1
MsgBox "Veuillez enregistrer le fichier sur votre disque avec le nom de votre choix de type CLASSEUR EXCEL", vbOKOnly, "DERNIERE ETAPE"
Application.Dialogs(xlDialogSaveAs).Show
End Sub