Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
Graphe Graph3, [M3], "0"
Graphe Graph4, [I3], "0.0%"
End Sub
Sub Graphe(graph As Object, c As Range, fmt$)
Dim i As Byte, j
For i = 1 To 2
With graph.SeriesCollection(i)
.HasDataLabels = False 'RAZ
For j = 1 To .Points.Count
If IsNumeric(c(j, i)) Then
If c(j, i) Then 'points <> 0
.Points(j).HasDataLabel = True
.Points(j).DataLabel.Text = Format(Abs(c(j, i)), fmt)
End If
End If
Next
End With
Next
End Sub