Salut Papy Pierrot,
Si je t'ai bien compris, il suffit d'ajouter une feuille 'Gabarit' à ton fichier (masquée ou non) et de modifier l'instruction
Sheets.Add After:=Sheets(Sheets.Count)
par
Sheets("Gabarit").Copy After:=Sheets(Sheets.Count)
comme dans le fichier ci-joint.
Cordialement.