Re bonjour
Le code ci-dessous il faut le copier et le coller dans ta feuille qui est concernée
Pour coller dans ta feuille
Quand ta feuille concernée est à l'écran tu fais Alt+F11 ,une feuille blanche apparait et là tu colles le code
Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To 45 ActiveSheet.Cells(1, i).Resize(ActiveSheet.UsedRange.Rows.Count, 1).Sort _ Key1:=ActiveSheet.Cells(1, i), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Next i End Sub
Tu reviens si problème