Public Function IsInArray(ValeurCherchée As Variant, ArrayDeRecherche As _
Variant) As Boolean
If Not IsArray(ArrayDeRecherche) Then Exit Function
IsInArray = InStr(1, vbNullChar & Join(ArrayDeRecherche, _
vbNullChar) & vbNullChar, vbNullChar & ValeurCherchée & _
vbNullChar) > 0
End Function
Sub VireLaFeuille()
Dim Tblo
Tblo = Array("truc", "bidule", "machin")
For Each feuil In Worksheets
If not IsInArray(feuil.Name, Tblo) Then feuil.Delete
Next
End Sub