Bonsoir
en respectant la forme de ton fichier (discutable), essai ce code
Sub meszones() 'recherche des zones à trier
With Sheets("STOCK")
deb = 8
While .Cells(deb, 2) <> ""
Set zone = .Range(.Cells(deb + 1, 3), .Cells(deb + .Cells(deb, 3).CurrentRegion.Rows.Count - 1, .Cells(deb, 2).CurrentRegion.Columns.Count + 1))
zone.Select
deb = .Cells(deb, 3).CurrentRegion.Rows.Count + 3 + deb
Call trie(zone)
Wend
End With
End Sub
Sub trie(zone)
zone.Sort key1:=zone.Columns(1), Orientation:=xlAscending
End Sub