Bonjour le forum ,

Je n'arrive pas à supprimer un ensemble de feuilles d'un classeur commançant par une même chaine de caractère. Mon code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub BlackMountain()
Dim debut as String
With Sheets("Feuil1")
  debut = .Cells(3,3).Value
End With
 
Suppression (debut & "20*") ' Suppression des feuilles référencées par une première partie en cellule C3 finissant par 2016, 2017, 2018..
End Sub
 
Sub Suppression(ByVal Feuille As String)
For Each X In Sheets
  If X.Name = Feuille Then X.Delete
Next
End Sub
Je ne comprends pas parce que je pensais que dès qu'une étoile était placée, celà représentait n'importe quel reste de chaine de caractère.

Merci infiniment d'avance pour votre aide

BlackMountain