'Désactiver message confirmation boite de dialogue
Application.DisplayAlerts = False
' Enlever filtre éventuel
Sheets("Besoin").Select
If Worksheets("Besoin").AutoFilterMode Then
Worksheets("Besoin").AutoFilterMode = False
End If
'supprimer la feuille "recprodef" si elle existe
For Each X In Sheets
If X.Name = "recprodef" Then X.Delete
Next
....