Sub test()
Dim pl As Range, i As Long, ar As Long, c As Range
' idée 1
Set pl = Union([C2:E3], [B4:D4])
For ar = pl.Areas.Count To 1 Step -1
For i = pl.Areas(ar).Count To 1 Step -1
pl.Areas(ar)(i).Select
Next i
Next ar
' idée 2
Set c = pl.Areas(pl.Areas.Count)(pl.Areas(pl.Areas.Count).Count)
For i = 1 To pl.Count
c.Select
Set c = pl.FindPrevious(c)
Next i
End Sub