Appel function pour tester l'existence d'une feuille

Private Function ExistenceFeuille(ByVal sNomFeuille As String) As Boolean
    On Error Resume Next
    ExistenceFeuille = Sheets(sNomFeuille).Name <> ""
    Err.Clear
End Function

For i = DateDebut To DateFin
    If Weekday(i, vbMonday) < 6 Then 'Sans samedis et dimanches
[COLOR=red]        If Not TestFeuil(Format(i, "dd mm yy")) Then
[/COLOR]            Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)
            With ActiveSheet
                .Name = Format(i, "dd mm yy") 'Mise en forme du nom de la feuille
                .[B1] = "Planning du " & Application.Proper(Format(i, "dddd dd mmmm yyyy")) 'Mise en forme du de la date en B1
            End With
[COLOR=red][B]        End If
[/B][/COLOR]    End If
Next

Private Sub TriFeuilles()
Dim Bcle%, Index%, Sh As Object
'évidemment, les feuilles ne doivent pas être protégées !
On Error Resume Next
With ThisWorkbook
  For Each Sh In ThisWorkbook.Sheets
    If Sh.Index > [COLOR=blue]1[/COLOR] Then
      For Index = [COLOR=blue]2[/COLOR] To .Sheets.Count
        If LCase(Sh.Name) > LCase(.Sheets(Index).Name) And Sh.Index < Index Then
          Sh.Move , .Sheets(Index)
        End If
      Next Index
    End If
  Next Sh
End With
End Sub

Private Sub TriFeuilles()
Dim Bcle%, Index%, Sh As Object
'évidemment, les feuilles ne doivent pas être protégées !
On Error Resume Next
With ThisWorkbook
  For Each Sh In ThisWorkbook.Sheets
    If Sh.Index > 1 Then
      For Index = 2 To .Sheets.Count
        If [COLOR="Red"]StrReverse([/COLOR]LCase(Sh.Name)[COLOR="Red"])[/COLOR] > [COLOR="Red"]StrReverse([/COLOR]LCase(.Sheets(Index).Name)[COLOR="Red"])[/COLOR] And Sh.Index < Index Then
          Sh.Move , .Sheets(Index)
        End If
      Next Index
    End If
  Next Sh
End With
End Sub