ActiveCell.Formula = "='H:\" & Chemin1 & "\[" & Chemin2 & ".xls]NGO'!$A$2"
ActiveCell.Formula = "='H:\" & Chemin1 & "[COLOR=red]\" & [C[/COLOR]hemin2 & ".xls]NGO'!$A$2"[COLOR=red]"[/COLOR]
ActiveCell.Formula = "='H:\" & Chemin1 & [COLOR=deepskyblue]"\[" & C[/COLOR]hemin2 & ".xls]NGO'!$A$2[COLOR=deepskyblue]"[/COLOR]