Sub STHighLight()
Dim r As Range
For Each r In Feuil1.Range("B1:B" & Feuil1.[B1].CurrentRegion.Rows.Count)
If r.Value = "Sous-total" Then
With Feuil1.Range("A" & r.Row & ":F" & r.Row)
.Font.Bold = True
.Interior.Color = RGB(255, 0, 0)
End With
End If
Next r
End Sub