Erreur 1004 VBA Excel

Bonjour, l'exécution de cette macro me donne un erreur 1004 sur le ligne "Wbk.SaveAs Filename:=fichier" (je travaille sur excel 2013) :

Sub fichedevie()
	Dim a As String, i As Integer, ligne As Integer
	Do
		ligne = ligne + 1
	Loop Until Cells(ligne, 6) = ""
	ligne = ligne - 1
	Dim Xl As Excel.Application, Wbk As Excel.Workbook
	Dim NomFich As String
	Dim chemin As String, fichier As String
	NomFich = "C:\Users\Dream\Desktop\fiche de vie Moule\Fiche.xlsx" 
	Set Xl = New Excel.Application
	Xl.Visible = False 
	Set Wbk = Xl.Workbooks.Open(NomFich) 
	For i = 1 To ligne
		a = Cells(i, 6)
		chemin = "C:\Users\Dream\Desktop\fiche de vie Moule" 
		fichier = chemin & "\" & a & ".xls" 
		Wbk.SaveAs Filename:=fichier
	Next i
	Wbk.Close
	Xl.Quit
End Sub