Seconde tentative :
 
- sélection de la plage A1-C3  
- menu "Insertion"/"Graphique"  
- "nuage de points", suivant  
- onglet "Serie", deux séries sont listées, supprimer la deuxième,
et pour la première série, indiquer Valeur X =Feuil1!$B$1:$B$3, Valeur Y =Feuil1!$C$1:$C$3
- onglet "Etiquettes de données", bouton radio "Afficher l'étiquette", suivant  
- terminé  
- Exécution de la macro VBA suivante
Code :
 - Sub Macro1()
 -     ActiveSheet.ChartObjects("Graphique 1" ).Activate
 -     ActiveChart.SeriesCollection(1).DataLabels.Select
 -     For i = 1 To 3 ' ligne 1 à 3
 -        ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
 -        ' Met dans l'étiquette la valeur de la cellule de la col 1, ligne i
 -        Selection.Characters.Text = Sheets("Feuil1" ).Cells(i, 1).Value
 -     Next i
 -     ActiveChart.ChartArea.Select
 - End Sub
 
  |