Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, matpax(), matregion(), n As Long
On Error Resume Next 'si la colonne Pax est vide
For i = 1 To [Pax].Count
If [Pax].Cells(i) <> "" Then
ReDim Preserve matpax(n): matpax(n) = [Pax].Cells(i).Value
ReDim Preserve matregion(n): matregion(n) = [Region].Cells(i).Value
n = n + 1
End If
Next
'---noms définis utilisés par le graphique---
ThisWorkbook.Names.Add "MatPax", Application.Transpose(matpax)
ThisWorkbook.Names.Add "MatRegion", Application.Transpose(matregion)
End Sub