Sub essai()
Dim Afermer As Boolean
On Error Resume Next ' on gère les erreurs
Workbooks("TONFICHIER.xlsx").Activate 'on tente de l'activer
If Err > 0 Then
Workbooks.Open ThisWorkbook.Path & "\TONFICHIER.xlsx"
Err.Clear 'efface err
Afermer = True
End If
'suite la macro qui copie
If Afermer = True Then Workbooks("TONFICHIER.xlsx").Close False
'si le fichier était fermé on le referme
End Sub