XL 2021 Dupliquer un onglet et renommer selon une liste

Sub DupliquerFeuilles()
Dim L%, Nom$: L = 3
Application.ScreenUpdating = False
While Sheets("Prénom").Cells(L, "B") <> ""
    On Error Resume Next
    Nom = Sheets("Prénom").Cells(L, "B").Value
    If OngletExist(Nom) = False Then
        Sheets("Département").Copy After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Nom
    End If
    L = L + 1
Wend
End Sub
Function OngletExist(NomFeuille$) As Boolean
    On Error Resume Next
    OngletExist = Sheets(NomFeuille$).Index
End Function