Après des centaines de bidouilles et tentatives avec bouts de codes récupérés par ci par là, je suis parvenu à trouver ce que je voulais.
Voici mon code final qui fonctionne parfaitement. Il permet d'effacer le fichier1 après appel de la macro du fichier2 et tout fermer à la fin.
Sub Suppression_Excel()
Fichier = (Chemin + Nom du fichier)
Workbooks(Nom du fichier).Saved = True
Workbooks(Nom du fichier).ChangeFileAccess xlReadOnly
Kill Fichier
Application.DisplayAlerts = False
Application.Quit
End Sub