Sub test()
Dim rng As Range, rng2 As Range, rngf As Range, cel As Range
Set rng = [a1:H20] 'range globale
Set rng2 = [f5:h10] 'range a exclure
For Each cel In rng.Cells
If Intersect(rng2, cel) Is Nothing Then
If rngf Is Nothing Then Set rngf = cel Else Set rngf = Union(rngf, cel)
End If
Next
MsgBox rngf.Address
End Sub