Trié et separé entre des bloque de date

[iliess]

bonjour
j'ai un tableau de 7 colonnes
dans la colonne B j'ai des date non trié et avec des doublant ou plus
QUESTION (VBA)
SVP comment je peux trié cette colonne en ordre croissant et séparer entre les bloque de date par une ligne vide
EXEMPLE
01.01.12
01.01.12
01.01.12
ligne vide
02.01.12
02.01.12
ligne vide
03.01.12
et pour le tri j'ai essayé ce code

Sub Macro2()
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Feuil1").Sort
     .SetRange Range("A1:G100")
     .Header = xlNo
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
  End With
End Sub

 

[Modeste]

Re : Trié et separé entre des bloque de date

Bonjour iliess,

Il vaut toujours mieux déposer un fichier exemple!
Essaie avec le code suivant ... si j'ai bien compris:

Sub trierGrouper()
With ThisWorkbook.Sheets("Feuil1")
    .Range("A2").CurrentRegion.Sort key1:=.Range("B2"), order1:=xlAscending, Header:=xlGuess
    derligne = .Range("B" & Rows.Count).End(xlUp).Row
    For lig = derligne To 2 Step -1
        If .Cells(lig, 2) <> .Cells(lig - 1, 2) Then .Range("A" & lig).EntireRow.Insert Shift:=xlShiftDown
    Next lig
End With
End Sub