Salut,
3700 colonnes c'est énorme !!
essaye ce code / en supposant que les colonnes en question partent de la première colonne A:A
Sub Macro1()
Dim I As Integer
For I = 1 To 3700
Application.ScreenUpdating = False
Columns(I).Select
Selection.Sort Key1:=Cells(1, I), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next I
Application.ScreenUpdating = True
Range("A1").Select
End Sub