Salut le forum

Dans le code ci-dessous, je souhaite qu'on m'aide modifier le critère sur les feuille name.
En effet, dans mon classeur, j'ai des feuille dont le nom des onglets est alphabetique et d'autres purement numéric. je souhaite au lieu de dire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If ws.Name <> wsd.Name And ws.Name <> "MENU" And ws.Name <> "SOURCE" And ws.Name <> "TABLEAU_N-1" And ws.Name <> "TABLEAU_N" And ws.Name <> "CODES"
qu'il ne traite que les onglets dont les noms sont purement numeric.
comment interpreter cela?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> wsd.Name And ws.Name <> "MENU" And ws.Name <> "SOURCE" And ws.Name <> "TABLEAU_N-1" And ws.Name <> "TABLEAU_N" And ws.Name <> "CODES" Then
            lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
            lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
            ws.Cells(2, 1).Resize(lastRow, lastCol).Copy
            wsd.Cells(lRow, 1).PasteSpecial xlPasteFormulasAndNumberFormats
            lRow = wsd.Cells(Rows.Count, 1).End(xlUp).Row + 1
        End If
    Next
N.B: c'est une partie du code et non l'intégralité
Merci de me donner un coup de main.