[gbinforme]

bonjour,

D'accord je te remet tout le code modifié :

Sub Enregistrement()
Dim Chemin1$, Chemin2$, Client$, Fichier$, Numfact$, Jour$
Chemin1 = "H:\Zerobug backup\Factures\" & Format(Now(), "yyyy") & "\"
Chemin2 = "D:\Gestion\Factures\" & Format(Now(), "yyyy") & "\"
Jour = Format(Now(), "ddmmyyyy")
Client = Range("H7")
Numfact = Range("I15")
Fichier = Jour & "_" & Numfact & ".xls"
If Dir(Chemin1 ), 16) = "" Then MkDir Chemin1
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
If Dir(Chemin2 ), 16) = "" Then MkDir Chemin2
If Dir(Chemin2 & Client, 16) = "" Then MkDir Chemin2 & Client
ActiveWorkbook.SaveAs Chemin2 & Client & "\" & Fichier

Ainsi cela devrait fonctionner.