Dim Plage1 As Range, Plage2 As Range, Cellule As Range
For Each Cellule In Sheets('Feuil1').UsedRange
'Définit la Plage1 représentant l'ensemble des cellules
'contenant le mot 'fin'
If Cellule.Value Like '* fin *' Then
If Plage1 Is Nothing Then
Set Plage1 = Cellule
Else
Set Plage1 = Union(Plage1, Cellule)
End If
End If
'Définit la Plage2 représentant l'ensemble des cellules
'comportant un fond rouge
If Cellule.Interior.ColorIndex = 3 Then
If Plage2 Is Nothing Then
Set Plage2 = Cellule
Else
Set Plage2 = Union(Plage2, Cellule)
End If
End If
Next Cellule