Le portail francophone de la géomatique

Bonjour,
je suis en train de programmer en VBA et je rencontre quelques problèmes.
Je dispose d'une couche de polylignes (un réseau routier) et d'une couche de polygones contenant un maillage.
Je souhaite sélectionner les tronçons du réseau qui se trouvent dans chaque maille du maillage.
Je voudrais donc sélectionner une maille et l'intersecter avec la couche de polyligne.
Voici mon code:
Code:

Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    Dim pMap As IMap
    Set pMap = pMxDoc.FocusMap
    Dim pFMaillage As IFeatureLayer
    Set pFMaillage = pMap.Layer(0)

    Dim pFBrunet As IFeatureLayer
    Set pFBrunet = pMap.Layer(1)
    Dim pFSelBrunet As IFeatureSelection
    Set pFSelBrunet = pFBrunet
       
    Dim pClassMaillage As IFeatureClass
    Set pClassMaillage = pFBrunet.FeatureClass
    Dim pMaille As IFeature
    Set pMaille = pClassMaillage.GetFeature(0)
    Dim pGeom As IGeometry
    Set pGeom = pMaille.Shape

    Dim pSpatialFilter As ISpatialFilter
    Set pSpatialFilter = New spatialFilter
    Set pSpatialFilter.Geometry = pGeom
   
    pSpatialFilter.SpatialRel = esriSpatialRelIntersects
    pFSelBrunet.SelectFeatures pSpatialFilter, esriSelectionResultNew, False
    pMxDoc.ActiveView.Refresh

il ne me sélectionne pas les bons tronçons.
Est ce que quelq'un aurait une idée?