Re,
Merci pour ton retour....
peux-ton déplacer la liste AA vers AK par exemple ?
Oui, il te faut modifier ces lignes:....choisis une colonne que tu es sur de ne pas utiliser....
ActiveSheet.Range("AK65535").End(xlUp).Offset(1, 0) = Sheets(j).Name
ActiveSheet.Range("AK:AK").Sort Key1:=Range("AK2"), Order1:=xlAscending
n = ActiveSheet.Cells(Rows.Count, 37).End(xlUp).Row
ActiveSheet.cbSheet.AddItem Cells(i, 37)
ActiveSheet.Range("AK:AK").ClearContents
Private Sub Worksheet_Activate()
Dim j As Integer, n As Integer, i As Integer
For j = 1 To Sheets.Count
If Sheets(j).Name <> "Accueil" And Sheets(j).Name <> "TABLEAU" And Sheets(j).Name <> "SITE" Then ActiveSheet.Range("AK65535").End(xlUp).Offset(1, 0) = Sheets(j).Name
Next j
ActiveSheet.Range("AK:AK").Sort Key1:=Range("AK2"), Order1:=xlAscending
ActiveSheet.cbSheet.Clear
n = ActiveSheet.Cells(Rows.Count, 37).End(xlUp).Row
For i = 1 To n
ActiveSheet.cbSheet.AddItem Cells(i, 37)
Next i
ActiveSheet.Range("AK:AK").ClearContents
End Sub
Bonne soirée,