Copier feuille Excel vers un autre classeur avec même format

Question

Bonjour j'avais posté un thread il y à quelques jours dans lequel je demandais comment copier une feuille Excel vers un nouveau classeur. Grace à votre aide j'ai eu la solution.(merci encore)

Seulement il reste à petit soucis à régler, comme vous le voyer dans la capture d'écran ci-jointe(qui représente ma feuille Excel d'origine) , la colonne A est plus grande que les autres et lorsque que je copie cette feuille la colonne toutes les colonnes sont de même taille sur le nouveau classeur.

Comment faire pour que les colonnes et lignes de la copie soient de même taille que l'originale?

Voici mon code pour copier coller ainsi que ma feuille Excel d'origine:

   Private Sub SaveBtn_Click(sender As Object, e As EventArgs) Handles SaveBtn.Click

        NameRanged3.Copy()
        Dim NewBook As Excel.Workbook = Application.Workbooks.Add()
        Dim NewSheet As Excel.Worksheet = NewBook.Sheets(1)
        NewSheet.PasteSpecial()
        NewBook.SaveAs("C:\Dropbox\Abattoirs des Crêts\Congélation\Entrées en stock journalières\" & Date.Now.ToString("dd.MM.yyyy") & ".xlsx")
        NewBook.Close()
        NameRanged4.ClearContents()

    End Sub

---

JF Collombet ® CreateSpecificCulture