[SIZE=2]Sub PlageRouge()
[/SIZE][SIZE=2][COLOR=green]'myDearFriend! - juillet 2006[/COLOR][/SIZE]
[SIZE=2] [COLOR=navy]Dim [/COLOR]Cel[COLOR=navy] As [/COLOR]Range, Plage[COLOR=navy] As [/COLOR]Range
[COLOR=green]'Définir le format de cellule à rechercher (fond = rouge)[/COLOR]
Application.FindFormat.Interior.ColorIndex = 3
[COLOR=green]'Obtenir la plage des cellules correspondant à ce format[/COLOR]
[COLOR=navy]With[/COLOR] Sheets(1).Range("A1:Z2000")
[COLOR=navy]Set[/COLOR] Cel = .Find(What:="", SearchFormat:=[COLOR=navy]True[/COLOR])
[COLOR=navy]If Not [/COLOR]Cel[COLOR=navy] Is Nothing Then[/COLOR]
[COLOR=navy]Set[/COLOR] Plage = Cel
Do
[COLOR=navy]Set[/COLOR] Plage = Application.Union(Plage, Cel)
[COLOR=navy]Set[/COLOR] Cel = .Find(What:="", SearchFormat:=[COLOR=navy]True[/COLOR], After:=Cel)
[COLOR=navy]Loop While[/COLOR] Application.Intersect(Cel, Plage)[COLOR=navy] Is Nothing[/COLOR]
[COLOR=navy]End If[/COLOR]
[COLOR=navy]End With[/COLOR]
Plage.[COLOR=navy]Select[/COLOR]
MsgBox Plage.Address
[COLOR=navy]End[/COLOR] Sub[/SIZE]