Function DansPlage(plg1, plg2) As Boolean
' *** retournera True si plg1 est contenu dans plg2
DansPlage = False
If plg1.Parent.Parent.Name = plg2.Parent.Parent.Name Then
If plg1.Parent.Name = plg2.Parent.Name Then
If Union(plg1, plg2).Adress = plg2.Adress Then DansPlage = True
End If
End If
End Function