toutes les feuilles sauf une

bonjour,
j'ai creer une boucle qui me recupere des données de toutes les feuilles du classeur de la 3eme à la derniere,
a partir de la 3eme car j'ai fait démarrer ma boucle à 3 mais j'aimerais aussi ne pas prendre en compte une autre feuille (cachée) dans ma recupération est ce possible ?

For I = 1 To Sheets.Count 'boucle pour recuperer les données
If Not Sheets(I).Name = "Stats" Then ' adapter le nom de la feuille
j = j + 1
Sheets("Stats").Cells(j, 1) = Sheets(I).Cells(1, 1)' adapter le nom de la
feuille
Sheets("Stats").Cells(j, 2) = Sheets(I).Cells(1, 2)' adapter le nom de la
feuille
End If
Next I

Application.ScreenUpdating = True
End Sub


merci