Sub Décorer2()
Dim i&, fin&
fin = Feuil1.Range("A65000").End(xlUp).Row
For i = 2 To fin
If Cells(i, 1) = "Total FP07" Then
Rows(i).Font.Bold = True
Rows(i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.PatternTintAndShade = 0
End With
End If
Next i
End Sub