Excel VBA renommer feuille grâce à variable

Bonjour,
j'essaie de faire une macro sur Excel 2007 qui après m'avoir créé une feuille et avoir copié le presse-papier dans une variable me renommer ma feuille par le contenu de cette variable maii je n'y arrive pas n'étant pas très doué en programmation, pouvez-vous m'aider, voici ce que j'ai écrit :

Sub Feuille()

Worksheets(1).Activate
Sheets.Add before:=Sheets(1)

Dim nom As String
Dim DataObj As MSForms.DataObject
With New DataObject
.GetFromClipboard
nom = .GetText(1)
End With

'Et là je ne sais pas quoi mettre à part ça :
ActiveSheet.Name = nom
End Sub