Pb de variable dans une fonction range

[MARTIN-CHEVALIER Stéphane]

Bonjour,

En fait je souhaite faire des graphiques automatiques à partir d'un tableau (nom de personnes, affectations)... Donc pour faire ce graphe, il faut que je sélectionne la première ligne (intitulé des affectations) et la ligne du nom de la personne voulue.

Sur un exemple avec l'enregistrement automatique de macro j'obtiens :
Range("D1:R1,D11:R11").Select

Pb c'est uniquement avec la personne en 11ème position... Il faut donc que j'utilise une variable (ligne)

Je commence à avoir des résultats avec
Dim zoneselect As String
zoneselect = Range(Cells(ligne, 4), Cells(ligne, 18)).Address
...
ActiveChart.SetSourceData Source:=Sheets("tableau").Range(zoneselect), PlotBy:=xlRows

Le problème c'est qu'il n'y a qu'une ligne de sélectionnée (il n'y a pas la ligne des intitulés)

Il faudrait
RangeCells(1, 4), Cells(1, 18), Cells(ligne, 4), Cells(ligne, 18))
ou alors
Range("D1:R1",Cells(ligne, 4), Cells(ligne, 18))... Mais ça ne marche pas... BOUHHHH

C'est quand même pas pratique le passage de variable dans une fonction range.

Donc si vous avez une idée...
Merci d'avance

Stéphane