Copie d'onglet sur XLSM

Option Explicit

Sub CopieOnglet()
    Dim DateJour As String, sDateJour As String
    Dim iVal As Integer, sChaine As String
    Dim MaFeuille As Excel.Worksheet
    Dim Encore As Boolean
    '
    Sheets("Modèle").Select
    DateJour = Format(Now, "dd-mm-yyyy")
    sDateJour = DateJour
    '
    Encore = True: sChaine = ""
    iVal = 0
    Set MaFeuille = ActiveWorkbook.Worksheets(1)
    While (Encore)
        Encore = False
        ' Vérifier si une feuille possède le même nom
        For Each MaFeuille In ActiveWorkbook.Worksheets
            ' comparer : nom de la feuille du classeur avec le nom à donner
            If (MaFeuille.Name = sDateJour) Then
                Encore = True
                iVal = iVal + 1
                If (iVal > 26) Then
                    MsgBox "Déjà 26 feuilles", vbCritical, "Copie impossible !"
                    Exit Sub
                End Sub
                sDateJour = DateJour & Chr(64 + iVal)
            End If
        Next MaFeuille
    Wend
    ' copier la feuille modèle
    Sheets("Modèle").Copy After:=Sheets("Modèle")
    ' renommer cette feuille copiée
    ActiveSheet.Name = sDateJour
End Sub