Sub DelFeuilles()
For Each Sht In ThisWorkbook.Worksheets
' Si le nom n'appartient pas à la liste entre guillemets
If InStr(1, "Graph2 récap index_feuilles", Sht.Name) = 0 Then
Dim i As Long
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> ShParam.Name Then
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
End If
Next i
End If
Next Sht
End Sub