Sub Etiquettes()
Dim Données As Range
Dim Noms As Range
Dim i
Set Données = Application.InputBox("Sélectionnez la plage de données", "SÉLECTION", Type:=8)
Set Noms = Application.InputBox("Sélectionnez la plage des noms", "SÉLECTION", Type:=8)
With ActiveChart.SeriesCollection(1)
.ApplyDataLabels Type:=xlDataLabelsShowLabel
For i = 1 To Données.Count
With .Points(i)
.DataLabel.Text = Noms(i)
End With
Next i
End With
ActiveChart.Deselect
End Sub