Tri d'un tableau de mailItem

Dim tableauMail(50) As Object
    Dim echange_effectue As Boolean 'flag
    Dim n As Integer  'nombre de mail dans le tableau
    Dim jour As String
    Dim mailTemp As Outlook.MailItem
 
 
    Do                                                                             
        echange_effectue = False                                                   
        For j = 0 To 50-1                                                        
            If tableauDate(j) > tableauDate(j + 1) Then                            
                If tableauDate(j + 1) <> Empty Then                                
                   '///////////////// echanger 2 mail /////////////               
                    Set mailTemp = Ol.CreateItem(olMailItem)                     
                    mailTemp = tableauMail(j)                      
                    tableauMail(j) = tableauMail(j + 1)           
                    tableauMail(j + 1) = mailTemp                 
                   '///////////////////////////////////////////////        
                    echange_effectue = True                                       
                End If                                                            
            End If                                                          
             Next                                                                                                                                      
    Loop While echange_effectue = True