Microsoft visual basic erreur 400

Bonjour,
j'ai réalisé la macro suivante, cela fonctionnait jusqu'à temps qu'Excel me sorte: "Microsoft Visual Basic Erreur 400". Que dois-je faire? (je suis un amateur...)

Sub Enregistrement_pour_Historique()
'
' Enregistrement_pour_Historique Macro
' Permet de suivre l'évolution de la Trésorerie
'

'
Sheets("Plan de Trésorerie TTC").Select
Sheets("Plan de Trésorerie TTC").Copy Before:=Workbooks( _
"Historique Plan de Trésorerie.xlsx").Sheets(1)
ActiveSheet.Name = Range("B2")
ThisWorkbook.Close False

End Sub