[RESOLU] problème graph histo avec une seule donnée !?

Bien le bonjour à tous

en principe, quand je viens ici, j'ai déjà fais le tour du net !
il s'agit d'un histo pour avoir la répartition des défauts en production flaconnerie.

le problème est simple, mais pour le résoudre en vb j'ai rien trouvé !?
si dans mes résultats je n'obtiens qu'une seule donnée, dans l'histo le comportement est bizarre !?

à la place du 1, normalement, je devrais avoir un nom !?


pour résoudre ceci, je dois intervenir manuellement en faisant 'Changer de ligne ou de colonne '


et là c'est ok !


seulement ce graphique est exécuté sous vb !

questions:
comment faire pour détecter ce problème ?
et surtout quelle fonction vb pour exécuter 'Changer de ligne ou de colonne ' ?

j'ai bien entendu passé par l'enregistreur de macro
avec Excel 2007 c'est la nullité absolue !
j'ai essayé avec Excel 2016 et aucun résultat !

code simple et classique pour coller le range de données . . . ici R$="$A$5:$B$5" soit une barre !
With ActiveChart
'barres
.ChartType = xlBarClustered 'barres horizontales (xlColumnClustered verticale)
.SetSourceData Source:=Range(R$)
.ChartGroups(1).GapWidth = 80 'espace entre barres
.SeriesCollection(1).Interior.Color = CoulBarre& 'color barres
. . .


EDIT:
je viens de trouver ceci qui fonctionne, pour préciser s'il s'agit de données /Col ou /Lig !
il fallait rajouter: , PlotBy:=xlColumns ou xlRows
soit pour mon cas: .SetSourceData Source:=Range(R$), PlotBy:=xlColumns