Tri d'un tableau de mailItem

Bonjour,
Je voudrais savoir pourquoi ce code qui permet de trier un tableau de mail ne marche pas.
ce code compile, s'exécute mais le tableau n'est pas trié en sortie.
Pour information, le tableau est initialisé auparavant

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

Merci d'avance pour votre aide.