Option Explicit
Sub CopierFichier()
Dim GestionFichier As Object
Dim chemin As String, Dossier As String, Exercice As String, Complet As String, NewFichier As String
Exercice = Year(Sheets("Paramètres").Range("N16").Value)
Set GestionFichier = CreateObject("Scripting.FileSystemObject")
chemin = ThisWorkbook.Path
Complet = ThisWorkbook.FullName
NewFichier = chemin & "\" & Exercice & "\" & "Arche " & Exercice & ".xlsb"
If Dir(NewFichier <> "") Then '*** incompatibilté de type
MsgBox "Ce Fichier a déjà été créé!", vbCritical, "CREATION FICHIER EXERCICE"
Else
GestionFichier.CopyFile Complet, NewFichier
End If
Set GestionFichier = Nothing
End Sub