Souci avec codes

Bonjour.

J'ai une macro qui créer une feuille automatiquement. Je veux que le format de la feuille (largeur collone et hauteur ligne) suive également.

Je galère depuis un bout mais je n'arrive à rien de bon.

Voici le code

sub ajoutfeuille()

Dim nom_souhaite$, nom_feuille$

nom_souhaite = Range("C6").Value '<<<<<< remplacer
nom_feuille = nom_souhaite '1er test avec nom souhaité

While WsExists(nom_feuille) 'tant que la feuille nommée nom_feuille existe, on exécute ce qui suit :
    i = i + 1 'incrémentation
    nom_feuille = nom_souhaite & "(" & i & ")" 'nom_feuille = nom_souhaite & indice incrémenté pour nouveau test
Wend

Worksheets.Add After:=Worksheets("remplir")

With ActiveSheet
    Worksheets("remplir").Range("A1:h51").Copy Destination:=.Cells(1, 1)
    .Name = nom_feuille

End With

'Worksheets("remplir").Activate

End Sub

Bonjour

Essaye avec

Worksheets("remplir").Cells.Copy Destination:=.Range("A1")

@+