Nommer feuille inserrée.

Je ne suis pas expert mais remplacer 'Paste' par 'Selection.Paste' me semblerait logique.
A essayer..

bonjour Gg21 , bonjour BoH

j'ai interprété que tu souhaitais créer une feuille et la renommer avec la valeur de la cellule active : dans ce cas tu peux essayer

Sub newfeuil1()
Dim NomFeuille As String

NomFeuille = ActiveCell 'insertion valeur de la cellule active dans une variable
Sheets.Add 'ajout feuille
ActiveSheet.Name = NomFeuille'renomme la feuille
End Sub


ci-dessous une 2eme version pour gérer les erreurs eventuelles ( nom de feuille deja existant , cellule vide lors de la definition du nom ..)

Sub newfeuil2()
Dim NomFeuille As String
Dim i As Byte

NomFeuille = ActiveCell 'insert valeur de la cellule active dans une variable

'*********** Option : *****************
'boucle sur les feuilles du classeur pour verifier que le nouveau nom n'existe pas
For i = 1 To Sheets.Count
If Sheets(i).Name = NomFeuille Then
MsgBox "Ce nom de feuille existe déja", , "Message"
Exit Sub 'on sort de la procedure si le nom existe deja
End If
Next i
'**************************************

Sheets.Add 'ajout feuille

'la feuille est renommée si la variable NomFeuille n'est pas vide
'(sinon la feuille prendra le nom automatique donné par Excel:Feuil2,Feuil3...)
If Not NomFeuille = "" Then ActiveSheet.Name = NomFeuille
End Sub


bonne journée
MichelXld

Bonjour Boh et Michel,

Boh, J'avais déja essayé ta proposition, sans résultat. Mais merci tout de même.

Michel, Ta première solution fonctionne très bien et la seconde est la cerise sur le gâteau. Grand merci.

Bonne journée à tous deux.