Private Sub CommandButton1_Click()
Sheets("Feuille modèle").Select
Sheets.Add
nom = Me.TextBox1.Value
ActiveSheet.Name = nom
Sheets("Feuille modèle").Select
Cells.Select
Selection.Copy
Sheets(nom).Select
Cells.Select
ActiveSheet.Paste
[COLOR=blue]ad = Sheets("Feuille modèle").Range("totauxfeuillemodèle").Address
Sheets(nom).Range(ad).Name = "totaux" & nom
[/COLOR]'ligne = Sheets("Feuille modèle").Range("totauxfeuillemodèle").Row
'Sheets(nom).Range("b" & ligne).Name = "totaux" & nom 'Je souhaiterais pouvoir nommer une plade de plusieurs cellules type Sheets(nom).Range("b" & ligne : "d" & ligne).Name = "totaux" & nom mais je n'ay parviens pas
'Sheets(nom).Range("a1").Select
End Sub