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