Sub SauverFichier()
'Date du jour à figer par copier collage spécial
Range('I12:K12').Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Sauvegarde du fichier sous le numéro
ActiveWorkbook.SaveAs Filename:= _
'D:\\Document\\Nettoyeur\\ ' & Range('o6').Value
End Sub