Mise en page d'une feuille Excel aprés saisie d'une ComBobox

Bonjour,

Ci-dessous, mes codes pour faire apparaitre une nouvelle feuille excel lors de la saisie d'un nouveau client.

Cette feuille prend le nom du client.

Mon souci:

• La mise en page de cette feuille me pose problème car elle n'existe pas et n'a jamais le même nom.
• Est-il possible de fusionner des cellules, changer la taille du texte, y inserer un logo, etc... (Et si "oui" comment !?)

Private Sub CommandButton1_Click()
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Combonom

'Inscrit dans la cellule définie (VERTICAL,HORIZONTAL)'
Cells(2, 2).Value = Combotitre.Value
Cells(2, 3).Value = Combonom.Value
Cells(4, 2).Value = Combosociete.Value
Cells(5, 2).Value = Combomail.Value
Cells(6, 2).Value = Comboportable.Value
Cells(7, 2).Value = Combofixe.Value
Cells(9, 2).Value = TextBoxdebut.Value
Cells(9, 3).Value = TextBoxfin.Value

'Selectionne les données d'une cellule de la USERFORM'
Selection.Insert
With UserFormrenseignements
      .Combotitre.Text = ""
      .Combonom.Text = ""
      .Combosociete.Text = ""
      .Combomail.Text = ""
      .Comboportable.Text = ""
      .Combofixe.Text = ""
      .TextBoxdebut.Text = ""
      .TextBoxfin.Text = ""
End With
UserFormrenseignements.Hide
End Sub

En gros, c'est pour avoir une belle fiche de renseignement .

Merci d'avance, j'espère que j'ai était assez claire sur mes descriptions !

Bonjour

Essaye en créant une feuille "Modele" qui aurait la mise en page désirée et à la place de :

Sheets.Add After:=Sheets(Sheets.Count)

tu mettrais :

Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)

Amicalement

Nad

Merci Nad,

Je ne pouvais pas espérer mieux !!!!

Merci encore