union et graphe compilé

[marrek]

Bonjour le forum,

j'ai un petit problème sur mon code, et je ne vois pas où.! :|
Pourriez vous m'aider s'il vous plait?!

Je souhaite définir des plages discontinues pour ensuite les mettre en tant que nouvelles séries dans un graphe compilé...

Voici le code...qui ne marche pas puisqu'il ne m'affiche qu'une partie de la plage (à savoir le premier élement je dirais)

Sub test()

Dim i As Integer
Dim plage As Range
Dim plage2 As Range

'la feuil2 est une feuille ou un nombre de données inconnues, mais toujours sous la meme forme, vont se coller à partir d'un autre classeur
'je souhaite récuperer la plage discontinue de valeur pour "besoins e chauffage" afin, par la suite de faire un graphe empilé

Set plage = ThisWorkbook.Worksheets("Feuil2").Range("B5")

For i = 4 To Range("A65536").End(xlUp)
    If ThisWorkbook.Worksheets("Feuil2").Range("A" & i) = "Besoins de Chauffage kWhEF/m² ARE" Then
    Set plage2 = Range("A" & i).Offset(0, 1)
    Set plage = Union(plage, plage2)
    
    End If
Next i

MsgBox plage

End Sub

En vous remerciant
M.