Fixer une limite à une macro

Bonjour,

j'aimerai fixer une limite de copie avec cette marco

Sub DupliquerFeuilleActiveL()

    Dim nomF$
    If Left(activesheet.Name, 2) = "L." And activesheet.Name = Sheets(Worksheets.Count).Name Then
        If IsNumeric(Split(activesheet.Name, ".")(1)) Then
            nomF = Split(activesheet.Name, ".")(1)
            activesheet.Copy After:=Sheets(Worksheets.Count)
            activesheet.Name = "L." & nomF + 1
        End If
    End If
    

En gros on ne pourra pas créer une copie L.33 (max. L.32)

Du coup quand on arrive à la feuille L.32 et on utilise la macro, j'aimerai avoir un msgbox qui indique "Impossible de copier la page L.32".

Merci

Bonjour,

Voir si ça convient ...

Sub DupliquerFeuilleActiveL()

    Dim nomF$
If Worksheets.Count < 32 Then
    If Left(ActiveSheet.Name, 2) = "L." And ActiveSheet.Name = Sheets(Worksheets.Count).Name Then
        If IsNumeric(Split(ActiveSheet.Name, ".")(1)) Then
            nomF = Split(ActiveSheet.Name, ".")(1)
            ActiveSheet.Copy After:=Sheets(Worksheets.Count)
            ActiveSheet.Name = "L." & nomF + 1
        End If
    End If
Else
   MsgBox "Le nombre de feuille est atteint ( 32 )."
End If

End Sub

ric

Merci Ric nickel