Sub ChangeEtiquettesGraph()
Dim CH As Chart
Dim DL As DataLabel
Dim R As Range
Dim C As Range
Dim T()
Dim cpt&
'---
If TypeName(Selection) <> "ChartArea" Then
MsgBox "Veuillez sélectionner un graphique"
Exit Sub
End If
Set CH = Selection.Parent
'---
On Error Resume Next
Set R = Application.InputBox( _
prompt:="Sélectionnez la plage de cellules contenant les étiquettes", Type:=8)
If Err <> 0 Then Exit Sub
Err.Clear
On Error GoTo 0
'---
For Each C In R
cpt& = cpt& + 1
ReDim Preserve T(1 To cpt&)
T(cpt&) = C
Next C
'---
cpt& = 0
For Each DL In CH.SeriesCollection(1).DataLabels
cpt& = cpt& + 1
DL.Text = T(cpt&)
Next DL
End Sub