Bonjour ,
J'ai fait un essai pour supprimer AF(1),
Comme la 1ére fois j'ai eu un message, j'ai ajouté DisplayAlerts = false
Sub SupprimeFeuille()
'Exemple pour supprimer AF(1)
'Supprime la demande de confirmation de suppression.
Application.DisplayAlerts = False
Sheets("AF (1)").Delete
'Réautorise l'alerte.
Application.DisplayAlerts = True
End Sub
Cordialement