Bonjour Bricofire,
Merci pour le tuyau, j'ai effectivement trouvé les infos dans DisplayAlerts
Je joins le code ci-dessous pour ceux qui ont le même problème.
Sheets('A').Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Merci encore et bonne journée
Danielou