Adapter code compter nombre d'onglets

'...
'            For i = 5 To Sheets.Count
'                Sheets(i).Select
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "BASES" And Feuille.Name <> "REFERENCES" And Feuille.Name <> "RECHERCHE-HISTORIQUE" Then
Feuille.Select
                sNomOnglet = ActiveSheet.Range("K4").Value
                sNomOnglet = Replace(sNomOnglet, "/", "-")
                If sNomOnglet <> "" Then
                    ActiveSheet.Copy
                    'Code pour changer les "/" en "-"
                    sDossier = CheminAppli & "\" & sRacine
                    CreationDossier sDossier
                    Application.DisplayAlerts = False
                    ActiveWorkbook.SaveAs Filename:=sDossier & "\" & sNomOnglet & "  " & Format(Date, "dd_mm_yy") & "  " & Format(Time, "h-mm-ss")
                    ActiveWindow.Close
                    UserFormAttente.Label2.Caption = vbCrLf & "Export des REFS du NN :   " & ActiveSheet.Name & vbCrLf & "                Tracking List N° :   " & sNomOnglet & vbCrLf & "Vers " & CheminAppli & vbCrLf
                    'couleur de texte du Label2
                    UserFormAttente.Label2.ForeColor = &HC00000
                    UserFormAttente.Repaint
                    'Tempo de x millisecondes
                    Sleep 5
                    Calculate
                End If
'            Next i
End If
Next
'...

Sub Supprimer()
    Dim Sh As Worksheet
 
 If Sheets.Count > 4 Then
 
 
    Select Case MsgBox("       Voulez-vous réellemnt    " _
                     & vbCrLf & "   supprimer toutes les REFS ?   " _
                     & vbCrLf & "" _
         , vbYesNo Or vbCritical Or vbDefaultButton2, "Confirmez votre choix...")
 
    Case vbYes
 
        UserFormAttente.Show 0
        UserFormAttente.Repaint
 
        Application.ScreenUpdating = False
        For Each Sh In Worksheets
 
 
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "BASES" And Feuille.Name <> "REFERENCES" And Feuille.Name <> "RECHERCHE-HISTORIQUE" Then
 
                          Application.DisplayAlerts = False
 
                UserFormAttente.Label2.Caption = vbCrLf & "Suppression des REFS pour le NN : " & vbCrLf & Sh.Name & vbCrLf
                UserFormAttente.Label2.ForeColor = &H400000
                UserFormAttente.Repaint
 
                'Tempo de x millisecondes
                Sleep 5
 
                Sh.Delete
 
            End If
 
        Next Sh
 
        Unload UserFormAttente
        Uf_suppression.Show 0
        Uf_suppression.Repaint
 
        Sheets("BASE").Activate
        Range("A1").Select
    Case vbNo
        Sheets("BASE").Activate
        Range("A1").Select
        Exit Sub
    End Select
 
Else
 
'        MsgBox "Vous devez lancer la macro XXXX, mais pas trop fort", , "Lancer La Macro X...."
    End If
 
 
End Sub

Feuille.Select

Sheets(i).Select