Soient 2 plages P1 & P2, P1 est incluse dans P2. Est-il possible en VBA de déterminer la partie de P2 non superposée par P1 ?

Avec Plg2 incluse dans Plg1 :

sub NonIntersect()  
For Each Cll In Range("Plg1")  
If Intersect(Range(Cll.Address), Range("Plg2")) Is Nothing Then   
plg1 = plg1 & Cll.Address & ":" & Cll.Address &  "," 
 If Len(plg1) > 0 Then  
 Range(Left(plg1, Len(plg1) - 1)).Select  
Next Cll  
MsgBox Selection.Address 
End sub