Bonjour,
Je voudrais, que lorsque l'on change de feuille, que ce bout de code fonctionne afin d'attribuer un nom à une plage.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Worksheets("DATA").Sort.SortFields.Clear
Worksheets("DATA").UsedRange.Sort key1:=Range("A1"), order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, _
                        key2:=Range("L1"), order2:=xlAscending, dataoption2:=xlSortNormal, _
                        Header:=xlYes

ThisWorkbook.Worksheets("DATA").UsedRange.Select
  Names.Add Name:="TABDATA", RefersTo:="=" & ThisWorkbook.Worksheets("DATA").Name & "!" & Selection.Address
    Range("A1").Select
Il bloque à la ligne en gras et je ne sais pas pourquoi car si je le lance simplement, ,cela fonctionne.
Merci pour votre aide.