Ordonner selon certaines conditions

Sub test()
Dim tablo(), cel As Range
Application.ScreenUpdating = False
With Range("A2", Range("B65536").End(xlUp))
tablo = .Value2
For Each cel In .Resize(, 1).Offset(, 1)
cel = Format(cel, "mm/dd/2008") 'ou toute année bissextile
Next
.Resize(, 3).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo
For Each cel In .Resize(, 1)
cel.Offset(, 1) = Application.VLookup(cel, tablo, 2, 0)
[COLOR="Red"]If cel = "" Then cel.Offset(, 1) = "" 'supprime #N/A[/COLOR]
Next
End With
End Sub

Sub test()
Dim tablo(), cel As Range
Application.ScreenUpdating = False
With Range("B2", Range("B65536").End(xlUp))
tablo = Application.Transpose(.Value2)
For Each cel In .Offset(, -1)
cel = cel.Row - 1 & Chr(1) & cel
cel.Offset(, 1) = Format(cel.Offset(, 1), "mm/dd/2008") 'ou toute année bissextile
Next
.Offset(, -1).Resize(, 3).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo
For Each cel In .Offset(, -1)
cel.Offset(, 1) = tablo(Split(cel, Chr(1))(0))
cel = Split(cel, Chr(1))(1)
Next
End With
End Sub

[COLOR=Blue]Sub TriAnniversaire[/COLOR]()
 Dim DerLgn As Long, PreLgn As Long
 Application.ScreenUpdating = False
     
 With ActiveSheet
 DerLgn = .Range("A" & .Rows.Count).End(xlUp).Row
 PreLgn = .UsedRange.Row + 1
          .UsedRange.Sort Key1:=.Range("A" & PreLgn), Order1:=xlAscending, Header:=xlYes
 DerLgn = .Range("A" & .Rows.Count).End(xlUp).Row
          .Range("D" & PreLgn, "D" & DerLgn).FormulaR1C1 = "=DAY(RC[-2])"
          .Range("E" & PreLgn, "E" & DerLgn).FormulaR1C1 = "=MONTH(RC[-3])"
          .Range("A" & PreLgn - 1, "E" & DerLgn).Sort Key1:=.Range("E" & PreLgn), _ 
              Order1:=xlAscending, Key2:=.Range("D" & PreLgn), _
              Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
              Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _
              DataOption2:=xlSortTextAsNumbers
          .Range("D:E").ClearContents
  End With
 Application.ScreenUpdating = True
 [COLOR=Blue]End Sub[/COLOR]

Sub test1()
Application.ScreenUpdating = False
Debut = "B2"
With ActiveSheet
    Set MaZone = .Range(.Range(Debut), .Cells(65536, .Range(Debut).Column).End(xlUp))
    For Each X In MaZone
        If X <> "" Then X.Value = CDbl(DateSerial(2000, Month(X), Day(X))) & "-" & Year(X)
    Next
    .Range(Debut).CurrentRegion.Resize(MaZone.Rows.Count).Sort Key1:=.Range(Debut), Order1:=xlAscending
    For Each X In Range(.Range(Debut), .Range(Debut).End(xlDown))
        X.Value = DateSerial(Split(X, "-")(1), Month(Split(X, "-")(0)), Day(Split(X, "-")(0)))
    Next
End With
Application.ScreenUpdating = True
End Sub