Sub Enregistrement_fichierInfoRH()
'
' Enregistrement_fichierInfoRH Macro
'
'
Range("A3:Q3").Select
ActiveCell.FormulaR1C1 = _
"GRILLE DES POSTULANTS POUR L'AFFICHAGE OUTR-18-VACA-792820-65091"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\uboud7t\Documents\Tableau admissibilité_OUTR-18-VACA-792820-65091.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub