Un tri un peu spécial

Sub Tri_AP()
'
'
 Dim a, b, c, e, f
 
    a = ActiveCell
    b = Right(a, 4)
    c = Left(a, Len(a) - 5)
    d = ActiveCell('RC[1]') '(!!!!!probleme )'
    e = Right(d, 4)
    f = Left(d, Len(d) - 5)
If e <= b Then  'si le format date et plus petit'
    e.entire.Row.Select
    b.Activate
    Selection.Insert Shift:=xlDown ' tri coupe la ligne pour l'inserrer plus haut )
    Else
     If f <= c Then  'si le format nombre et plus petit'
     b.Activate
     Selection.Insert Shift:=xlDown
     Else

End Sub[code]

Sub Tri_AP()

 Dim a, b, c, d, e, f
 
    a = ActiveCell
    b = Right(a, 4)
    c = Left(a, Len(a) - 5)
    d = ActiveCell.Offset(1, 0)
    e = Right(d, 4)
    f = Left(d, Len(d) - 5)
If e < b Then
    ActiveCell.Offset(0, 0).Select
    Range(ActiveCell.Offset(1, -1), ActiveCell.Offset(1, 10)).Copy
    Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, 10)).Activate
    Selection.Insert Shift:=xlDown ' tri coupe la ligne pour l'inserrer plus haut )
Else
     If f < d Then
        ActiveCell.Offset(0, 0).Select
         Range(ActiveCell.Offset(1, -1), ActiveCell.Offset(1, 10)).Copy
         Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, 10)).Activate
         Selection.Insert Shift:=xlDown ' tri coupe la ligne pour l'inserrer plus haut )
     Else
     End If
End If

End Sub


Mais il me manquait la boucle qui permet de selectionner l'ensemble de la colonne



shintra