Rhooo.
Donc le problème est toujours le même : Sheets s'applique par défaut sur ActiveWorkBook.
NE PAS UTILISER ActiveTruc NI LAISSER A EXCEL LE SOIN DE DEVINER SUR QUELLE CELLULE, SUR QUELLE FEUILLE, SUR QUEL CLASSEUR TRAVAILLER.
WorkBooks("Classeur1").Charts("Chart1").SetSourceData Source:=WorkBooks("Classeur1").Sheets("R_analyse_croisée" ).Range("A1") ...