Option Explicit
Sub test()
Dim t() As Variant, ws As Object
t = Array("Base_pour_graph", "Graphique", "Calcul")
Application.DisplayAlerts = False
For Each ws In Sheets
If Sheets.Count > 1 Then If Not IsError(Application.Match(ws.Name, t, 0)) _
Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub