Mise en forme conditionnelle sur ligne code VBA

Bonjour à tous,

voici mon petit souci , je n'arrive pas à mettre la ligne entiére de la colonne A à J en Jaune avec la mise en forme conditionnelle , seule les cellules de la colonne A se colorient.

Voici mon code :

Columns("A:A").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=CHERCHE(""total"";$A1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveWindow.SmallScroll Down:=-15

Je pense qu'il faut définir la notion de entire.row mais je ne sais ou la placer,

Pourriez vous m'aider svp ,

Merci à tous par avance pour votre aide,