chemin = ActiveWorkbook.Path
Mois = month(Now)
Année = year(Now)
Mois2 = Format("01/" & Mois & "/" & Année, "mmmm")
Ligne2=25
Colonne=2
propriete = Mois2 & " " & Année
ActiveCell.FormulaR1C1 = "='" & chemin & "\Dossier\[& propriete & .xls]Feuil1'!R" & Ligne2 & "C" & Colonne