XL 2021 Dupliquer un onglet et renommer selon une liste

[sonskriverez]

Bonjour le Forum

Je voudrais dans le fichier en pièce jointe copier l'onglet "Département" dans un nouvelle onglet et le renommer avec le prénom de l'onglet "Prénom" et ce pour chaque prénom.

Merci de votre aide

 

[fanfan38]

Bonjour
Ci joint ma solution (par macro)

A+ François

 

[sylvanu]

Bonjour sonskriverez, fanfan,
Franchement à labour. 😉

La liste prénom sera parcourue jusqu'il trouve une cellule vide.
Si la feuille existe déjà, elle n'est pas dupliquée.
Le bouton gris ne sert que pour les test.

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

 

[sonskriverez]

Super exactement ce que je voulais un grand merci a vous deux