Copier les matricule sur plusieurs feuilles

Salut tout le monde

J’ai besoin de votre aide pour mon problème svp

J’ai un classeur ou il contient deux feuilles la première « base » ou elle contient le matricule et le nom prénom des agents.

La deuxième feuille « model » comme un modèle pour les autres.

Je souhaite que on cliquant sur le Botton il :

Selon le nombre des agents il ouvre autant de feuille comme modèle la feuille « model ».

Puis il copie le matricule à G9 et G34 et copie le NOM PRENOM à C9 et C34 de chaque agent.

merci

Bonjour

Et le nom des feuilles créées doit être quoi exactement ?

edit : Les noms sont créés tous e une seule fois ou des noms peuvent venir se rajouter dans la bse après avoir déjà créé des feuilles ?

Salut Dan et bonjour.

Alors pour les noms des feuilles ci si possibles qu’elle prenne les noms prénom des agents.

Et pour la deuxième question oui les noms sont créés tous une seule fois.

Merci

Bonjour,

Ci-joint fichiers reprenant tes besoins.

Cordialement

Option Explicit
Public Sub Création_Feuilles()
Dim sH_1 As Worksheet, sH_2 As Worksheet
Dim derLigne As Integer
Dim i As Integer

    Application.ScreenUpdating = False

    Set sH_1 = Worksheets("base")
    Set sH_2 = Worksheets("model")
    sH_2.Visible = True

    sH_1.Select

    With sH_1
        derLigne = Range("A1").End(xlDown).Row
    End With

    With sH_2
        For i = 2 To derLigne
            .Cells(9, 3) = sH_1.Cells(i, 2)
            .Cells(9, 7) = sH_1.Cells(i, 1)
            .Cells(34, 3) = sH_1.Cells(i, 2)
            .Cells(34, 7) = sH_1.Cells(i, 1)
            sH_2.Copy After:=Worksheets(Worksheets.Count)
                With ActiveSheet
                    .Name = sH_1.Cells(i, 2)
                    .Visible = True
                End With
        Next
    End With

    sH_2.Visible = False

    Application.ScreenUpdating = False

End Sub

SALUT Jean-Eric et bonjour

Merci pour votre réponse ça marche bien

Thank you