Créer un onglet selon nom de la cellule active

Bonjour,

J'ai un fichier Excel qui contient plusieurs onglets.

• Un onglet récapitulation avec une liste des chantier actuels. Où l'on ajouter une ligne pour chaque nouveau chantier.
• Un onglet par chantier avec un tableau.

Serait-il possible de créer un nouvel onglet selon le nom du nouveau chantier avec un lien hypertexte dans la cellule contenant le nom du chantier ?

Pour être plus clair, à chaque fois que je rajoute une ligne sur mon tableau, dans l'onglet RECAPITULATION, je souhaiterais, qu'avec l'aide d'un bouton, je sélectionne la cellule, j'appuie sur ce bouton et il me crée un nouvel onglet avec pour nom le contenu de la cellule sélectionnée.

Et que l'onglet créer soit une copie de l'"onglet type".

Je vous joint un fichier exemple du même principe que mon fichier.

Je vous remercie d'avance pour votre aide.

Bonjour

Une solution sans bouton et lien hypertexte (à éviter)

• Supprimer les liens hypertexte dans la colonne A
• Clic droite sur l'onglet "Recapitulation"
• Choisir l'option "Visualiser le code"
• Copier le code ci-dessous et le coller dans la fenêtre
• Enregistrer le fichier au format XLSM

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Dan - 11/10/16
If Not Intersect(Target, Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
    On Error GoTo Fin
    Sheets(Target.Value).Select
    Exit Sub
Fin:
Cancel = False
a = MsgBox("Pas de feuille existante. Voulez-vous la creer ?", vbYesNo + vbQuestion + vbDefaultButton2)
If a = vbYes Then
    Sheets("Onglet type").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target
End If
End If
Cancel = True
End Sub

Si ok, merci, lors de votre réponse, de cloturer le fil en cliquant sur la case à cocher vert à coté du bouton EDITER

Cordialement

Bonjour Dan,

Merci pour votre réponse.

Merci beaucoup, c'est exactement ce dont je désirais.

Belle journée.

Kurosaki