Re: Trie & insert Row
Bonjour
<Un petit exemple pour orienter ta réflexion:
Ici le pas est 5 et ont travail sur la colonne d précédemment triée
Sub debut()
Set deb = ActiveSheet.Range("d1")
While deb <> ""
n = 0
While deb = deb.Offset(1, 0)
Set deb = deb.Offset(1, 0)
n = n + 1
Wend
ActiveSheet.Range(deb.Offset(1, 0), deb.Offset(5 - (n + 2), 0)).EntireRow.Insert
Set deb = deb.Offset(5 - (n + 1), 0)
MsgBox deb
Wend
End Sub