Colonne = Replace(Chr(Int(((ActiveCell.Column - 1) / 26) + 64)) & Chr(((ActiveCell.Column - 1) Mod 26) + 65), "@", "")
MsgBox ("=si([Objectifs.xls]CCC!$" & Colonne & ActiveCell.Row & "="""";"""";[Objectifs.xls]CCC!$" & Colonne & ActiveCell.Row & ")")
ActiveCell.Formula = "=si([Objectifs.xls]CCC!$" & Colonne & ActiveCell.Row & "="""";"""";[Objectifs.xls]CCC!$" & Colonne & ActiveCell.Row & ")"