Bonsoir lolo,
Tu as bien compris comment activer la création des feuilles pour un nouveau projet.
En dehors des boutons, as-tu d'autres formes ou images qui ne posséderaient pas de lien hyperlink dans les feuilles copiées?
J'ai modifié le code un peu à l'aveuglette...espérant que ça colle mieux :
Sub copieFeuilles(zNom As String)
Const cFeuilles = "PROJET;PROJET - ETUDE;PROJET - MARCHE;PROJET - TRAVAUX"
Dim oSheetIn As Worksheet, oSheetOut As Worksheet, oShapes As Shapes, oShape As Shape, oHyperlink As Hyperlink
Dim aFeuilles() As String, i As Integer
'On charge dans une table les noms des feuilles à copier
aFeuilles() = Split(cFeuilles, ";")
'On copie les feuilles Projet en modifiant le nom
For i = 0 To UBound(aFeuilles)
Set oSheetIn = ThisWorkbook.Sheets(aFeuilles(i))
oSheetIn.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set oSheetOut = ActiveSheet
oSheetOut.Name = Replace(aFeuilles(i), "PROJET", zNom)
'On modifie les hyperliens
'On constitue la collection de toutes les formes contenues dans la feuille
Set oShapes = oSheetOut.Shapes
'On
For Each oShape In oShapes
On Error Resume Next
Set oHyperlink = oShape.Hyperlink
On Error GoTo 0
If Not oHyperlink Is Nothing Then
oHyperlink.SubAddress = Replace(oHyperlink.SubAddress, "PROJET", zNom)
End If
Next
Next
End Sub