my $Range = $Book->Worksheets('Name')->Range("H1");
$Range->FormatConditions ->Delete;
$Range->FormatConditions->Add("xlCellValue","xlNotEqual","=8");
$Range->FormatConditions(1)->Interior->{ColorIndex} = 3;
$Range->FormatConditions(1)->Font->{ColorIndex} = 2;
$Rango->FormatConditions->Add("xlExpression",,"=H1>G1");
$Rango->FormatConditions(2)->Interior->{ColorIndex} = xlNone;
$Rango->FormatConditions(2)->Font->{ColorIndex} = xlAutomatic;