Erreur de macro

bonsoir le forum

voila mon petite problème

je tente un petit macro pour copier un feuille base de données global dans sont intégralité

cela fonctionne en partis il copier bien ma feuille mais il me bloque en fin de macro ou est l'erreur svp

l'erreur est la quatrieme lignes Name=????

avec tout mes remerciments

Sub duplic()
Worksheets("basededonnéesglobal").Copy After:=Sheets(Worksheets.Count)
Set MySheet = ActiveSheet
With MySheet
   .Name = Worksheets("feuil").Range("a2")
End With
End Sub

désolée du dérangement j'ai trouvé j'ai pas assez réfléchis

mes excuses