union et graphe compilé

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