For i = 2 To Sheets("Données").Range("A65536").End(xlUp).Row
Secteurs = Sheets("Données").Range("A" & i)
If Secteurs.ListIndex = -1 Then Secteurs.AddItem Sheets("Données").Range("A" & i)
Next i
Secteurs = ""
For i = 2 To Sheets("Données").Range("B65536").End(xlUp).Row
Communes = Sheets("Données").Range("B" & i)
If Secteurs.ListIndex = -1 Then Communes.AddItem Sheets("Données").Range("B" & i)
Next i
Communes = ""