Bonjour,
Série1 = .Range(.Cells(i, 3), .Cells(i, larg + 2)).Value
Provoque Série1 = vide, ce qui provoque à la suite du code une valeur de rCol négative donc inférieur ou = à 0 donc message de valeur nulle.
Comme sur la feuille 1 les colonnes 1, 2 et 3 sont vides, peut-être faut-il mettre "4" à la place du 3 :
Série1 = .Range(.Cells(i, 4), .Cells(i, larg + 2)).Value tout comme pour la définition de Série2.
Mais ne comprenant pas le code dans son ensemble je ne sais si c'est la bonne réponse, ceci dit, le code ne provoque plus d'erreur... Si ce n'est un "N/A" sur la feuille 2 en dernière colonne.
@ bientôt
LouReeD