bonjour à tous,

j'ai un petit souci pour supprimer plusieurs feuilles en même temps

j'ai ce code, il fait ce que je demande mais il me fait "une erreur d'exécution 9"
indice n'appartenant pas à la sélection.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Nouveau_Devis()
 
Dim Tb() As String
Dim Sh As Worksheet
Dim j As Byte
 
Do
ReDim Tb(0)
Tb(0) = "Devis"
For Each Sh In ThisWorkbook.Worksheets
    If InStr(Sh.Name, "Détail") > 0 Then
        j = j + 1
 
        ReDim Preserve Tb(0 To j)
        Tb(j) = Sh.Name
    End If
Next Sh
Application.DisplayAlerts = False
'suppression des feuilles trouvées
ThisWorkbook.Worksheets(Tb(j)).Delete
Loop Until Tb(j) = Tb(0)
 
 
 End Sub
En plus en mode débogage il ne surligne rien en jaune... C'est surement le Loop mais je ne comprends pas pourkoi?

merci d'avance pour vos conseils si vous avez.