Sheets("variation").Select
Worksheets("variation").range("C2:C2").Select
ActiveCell.FormulaR1C1 = "=IF(AND('feuille A!RC[3]<>"""",'feuille B '!RC[3]<>""""),ROUND((('feuille B'!RC[3]-'feuille A'!RC[3])/'feuille A'!RC[3])*100,1),"""")"
Set SourceRange = Worksheets("variation").range("C2:C2")
Set fillRange = Worksheets("variation").range("C2:C1600")
SourceRange.AutoFill Destination:=fillRange
Set SourceRange = Worksheets("variation").range("C2:C1600")
Set fillRange = Worksheets("variation").range("C2:BH1600")
SourceRange.AutoFill Destination:=fillRange
color ("variation")