Comparaison deux colonnes données en désordre

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLA As Range 'déclare la variable PLA (PLage de la colonne A)
Dim PLD As Range 'déclare la variable PLD (PLage de la colonne D)
Dim TCA As Variant 'déclare la variable TCA (Tableau de la Colonne A)
Dim TCD As Variant 'déclare la variable TCD (Tableau de la Colonne D)
Dim I As Integer 'déclare la variable I (Incrément)
Dim VT As Byte 'déclare la variable VT (Valeur Trouvée)
Dim NA As Integer 'déclare la variable NA (Nombre en colonne A)
Dim J As Integer 'déclare la variable J (incrément)
Dim K As Integer 'déclare la variable K (incrément)
Dim L As Integer 'déclare la variable L (incrément)
Dim ND As Integer 'déclare la variable ND (Nombre en colonne D)
Dim TD() As Variant 'déclare la variable TD (Tableau Doublons)

'**********************
'Colonne A -> Colonne D
'**********************

Set O = Worksheets("Feuil1") 'défnit l'onglet O
Set PLA = O.Range("A1:A" & O.Cells(Application.Rows.Count, "A").End(xlUp).Row) 'définit la plage PLA
Set PLD = O.Range("D1:D" & O.Cells(Application.Rows.Count, "D").End(xlUp).Row) 'définit la plage PLD
TCA = PLA 'définit le tableau de la colonne A TCA
TCD = PLD 'définit le tableau de la colonne A TCA

For I = 1 To UBound(TCA, 1) 'boucle 1 : sur toutes les lignes I du tableau TCA
    VT = 0 'initialise la valeur trouvée VT
    NA = Application.WorksheetFunction.CountIf(PLA, TCA(I, 1)) 'définit le nombre d'occurrence de la valeur TCA de la boucle dans la colonne A : NA
    For J = I To UBound(TCD, 1) 'boucle 2 : sur toutes les lignes J du tableau TCD
        If TCA(I, 1) = TCD(J, 1) Then 'condition 1 : si la valeur de la boucle 1 et de la boucle 2 est identique
            VT = 1 'redifinit la valeur trouvée VT
            ND = Application.WorksheetFunction.CountIf(PLD, TCD(J, 1)) 'définit le nombre d'occurrence de la valeur TCD de la boucle dans la colonne D : ND
            If ND <> NA Then 'condition 2 : si les deux nombre sont différents
                If K > 0 Then 'condition 3 : si K est supérieur à 0 (=> si le tableau des doublons TD n'est pas vide)
                    For L = 0 To UBound(TD) 'boucle 3 : sur tous les éléments du tableau des doublons TD
                        If TCA(I, 1) = TD(L) Then GoTo suite 'si la valeur de TCA de la boucle 1 est égale à un élément du tableau des doublons TD, va à l'éqiquette "suite"
                    Next L 'prochain élément de la boucle 3
                End If 'fin de la condition 3
                MsgBox NA & " fois la valeur " & TCA(I, 1) & " en colonne A" & Chr(13) & _
                   ND & " fois la valeur " & TCA(I, 1) & " en colonne D" 'message
                ReDim Preserve TD(K) 'redimensionne le tableau des doublon TD
                TD(K) = TCA(I, 1) 'récupère la valeur de TCA de la boucle 1 dans le tableau des doublons TCD
                K = K + 1 'incrémente K
                Exit For 'for de la boucle 2
            End If 'fin de la condition 2
        End If 'fin de la condition 1
suite: 'étiquette
    Next J 'prochaine ligne J de la boucle 2
    If VT = 0 Then 'condition 4 : s'il n'existe aucune occurrence de TCA de la boucle 1 dans la colonne D (=> si VT=0)
        If K > 0 Then 'condition 5 : si K est supérieur à 0 (=> si le tableau des doublons TD n'est pas vide)
            For L = 0 To UBound(TD) 'boucle 4 : sur tous les éléments du tableau des doublons TD
                If TCA(I, 1) = TD(L) Then GoTo fin 'si la valeur de TCA de la boucle 1 est égale à un élément du tableau des doublons TD, va à l'éqiquette "fin"
            Next L 'prochain élément de la boucle 5
        End If 'fin de la condition 5
        MsgBox "La colonne D ne contient pas la valeur " & TCA(I, 1) & " !" 'message
        ReDim Preserve TD(K) 'redimensionne le tableau des doublon TD
        TD(K) = TCA(I, 1) 'récupère la valeur de TCA de la boucle 1 dans le tableau des doublons TCD
        K = K + 1 'incrémente K
    End If 'fin de la condition 4
fin: 'étiquette
Next I 'prochaine ligne de la boucle 1

'**********************
'Colonne D -> Colonne A (commentaires idem)
'**********************

For I = 1 To UBound(TCD, 1)
    VT = 0
    ND = Application.WorksheetFunction.CountIf(PLD, TCD(I, 1))
    For J = I To UBound(TCA, 1)
        If TCD(I, 1) = TCA(J, 1) Then
            VT = 1
            NA = Application.WorksheetFunction.CountIf(PLA, TCA(J, 1))
            If ND <> NA Then
                If K > 0 Then
                    For L = 0 To UBound(TD)
                        If TCD(I, 1) = TD(L) Then GoTo suite2
                    Next L
                End If
                MsgBox ND & " fois la valeur " & TCD(I, 1) & " en colonne D" & Chr(13) & _
                   NA & " fois la valeur " & TCD(I, 1) & " en colonne A"
                ReDim Preserve TD(K)
                TD(K) = TCD(I, 1)
                K = K + 1
                Exit For
            End If
        End If
suite2:
    Next J
    If VT = 0 Then
        If K > 0 Then
            For L = 0 To UBound(TD)
                If TCD(I, 1) = TD(L) Then GoTo fin2
            Next L
        End If
        MsgBox "La colonne A ne contient pas la valeur " & TCD(I, 1) & " !"
        ReDim Preserve TD(K)
        TD(K) = TCD(I, 1)
        K = K + 1
    End If
fin2:
Next I
End Sub