Boucles for imbriquées, macro trop lente

Bonjour,

J'ai besoin de vos lumières!
J'ai réalisé un programme vba qui est beaucoup trop lent ! J'aimerais avoir vos conseils concernant de possibles évolutions !

Les données se présentent de la façon suivante : une colonne, représentant des objets, et une autre, donnant des dates de réalisation d'opérations liées à ces objets.

Il peut y avoir plusieurs opérations et donc plusieurs dates par objet.
Le but du programme est :
- Dans un 1er temps, de trouver pour chaque objet la date la plus ancienne;
- Dans un 2nd temps, de comparer ces dates et de donner la date la plus récente et son objet associé.

Le programme que j'ai réalisé fonctionne mais est très lent (seulement 100 à 200 lignes de données à traiter et plusieurs minutes d'exécution).

  Sub D_DatesDebutMsn()

Application.ScreenUpdating = False

Worksheets("Feuil3").Range("A:B").ClearContents
Worksheets("data").Columns("D:G").NumberFormat = "General"
LastRow = Worksheets("data").Range("A60000").End(xlUp).Row

For i = 2 To LastRow
    If Worksheets("data").Cells(i, 8).Value = "Oui" Then
        first = Worksheets("data").Cells(i, 6).Value
        vMsn = Worksheets("data").Cells(i, 2).Value
        For j = 2 To LastRow
            If j <> i Then
                If Worksheets("data").Cells(j, 2).Value = Worksheets("data").Cells(i, 2).Value Then
                    If Worksheets("data").Cells(j, 6).Value < Worksheets("data").Cells(i, 6).Value Then
                        If Worksheets("data").Cells(j, 6).Value > 0 Then
                            first = Worksheets("data").Cells(j, 6).Value
                            vMsn = Worksheets("data").Cells(j, 2).Value
                        End If
                    End If
                End If
            End If
            If first <> 0 Then
                Worksheets("Feuil3").Cells(i, 1).Value = vMsn
                Worksheets("Feuil3").Cells(i, 2).Value = first
            End If
        Next j
    End If
Next i


Worksheets("data").Columns("D:G").NumberFormat = "m/d/yyyy"
Worksheets("Feuil3").Columns("B:B").NumberFormat = "m/d/yyyy"
Application.ScreenUpdating = True


End Sub 

Si vous avez des pistes pour l'améliorer ou même une méthode différente (peut être avec des recherchev ?? je ne vois pas trop comment faire..), ce serait génial !
Merci d'avance et bonne soirée !