Sub test3()
Dim plage As Range, i&, cel1 As Range, cel2 As Range, cel3 As Range
Set cel1 = Range("B9")
Set cel2 = Range("E9")
Set cel3 = Range("H8")
Set plage = Application.Union(cel1, cel2, cel3)
MsgBox plage.Address
For i = 1 To plage.Cells.Count
MsgBox plage(i).Address
Next i
End Sub