Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:K1")) Is Nothing Then
test = Chr(64 + Target.Column)
test1 = Cells(65536, test).End(xlUp).Address
Feuil1.Range(test & "2", test1).Name = "colchoix"
ActiveSheet.ChartObjects(1).Visible = True
With ActiveSheet.ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = Target.Value
End With
Else
ActiveSheet.ChartObjects(1).Visible = False
End If
End Sub