Bonjour
une idée....
peut-être qu'au lieu de créer une nouvelle feuille et de vouloir copier les données dedans,
faire directement une copie de ta feuille modèle
et donc remplacer
Dim shNewPage As Worksheet
Set shNewPage = Sheets.Add(After:=Sheets(Sheets.Count))
shNewPage.Name = TextBox1
Set shNewPage = Nothing
par
Sheets("PATTERN").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = TextBox1
Fred