Euh...
Effectivement , c'est vous qui avez la solution plus simple :
Dim chemin$
With ThisWorkbook
.......
Range("D3:F3").Value = Range("D3:F3").Value
.SaveAs Filename:=chemin & "\" & Format(Date, "yyyymmdd") & Range("H3") & Range("B9") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.Close False
Ce code fonctionne parfaitement
Merci