automatisation error

[Johan]

Bonjour à tous,

dans un workbook avec 1 sheet, je reprends une valeur -> je rajoute un sheet -> et j'écris cette valeur dans ce nouveau sheet -> et je delete le fichier source

en suppriment se fichier je reçois la mention 'automatisation error'
si on enlève la ligne qui met le DisplayAlerts = False tout marche très bien.

Quelqu'un pourrait-il me dire ce qui ne va pas ou comment y remedier?

Merci beaucoup


Private Sub CommandButton1_Click()
CommandButton1.Visible = True

Dim user As String
user = ActiveSheet.Range("c10").Value

Worksheets.Add
ActiveSheet.Range("a1").Value = user

Application.DisplayAlerts = False
Sheets("ComputerName&User").Delete
Application.DisplayAlerts = True

MsgBox "tu y es"

End Sub