vba - VBA 2 つの日付列と 2 つの値列を比較して、それぞれ 1 つを作成したい

Question

行の各日付を比較し、最も高いものを取得し、それらを最も遠いものから最も近いものに並べ替えてから、値で同じことを行います。

私のコードがあります

Sub Intersection()

Dim nombre As Integer
Dim tableauDate(1 To 130) As Date
Dim tableauValeur(1 To 130) As String
Dim incrementeurForeach As Integer

nombre = 115
incrementeurForeach = 1

For incrementeur = 0 To nombre
    If Range("A" & incrementeur).Value = Range("C" & incrementeur).Value Then
        tableauDate(incrementeur) = Range("A" & incrementeur).Value
        If Range("B" & incrementeur).Value > Range("D" & incrementeur).Value Then
            tableauValeur(incrementeur) = Range("B" & incrementeur).Value
        Else
            tableauValeur(incrementeur) = Range("D" & incrementeur).Value
        End If
    Else
        If Range("A" & incrementeur).Value > Range("C" & incrementeur).Value Then
            tableauDate(incrementeur) = Range("A" & incrementeur).Value
        Else
            tableauDate(incrementeur) = Range("C" & incrementeur).Value
        End If
    End If

Next incrementeur

For Each valeur In tableauDate

    Range("A", incrementeurForeach).Value = tableauDate(incrementeurForeach)
    Range("B", incrementeurForeach).Value = tableauValeur(incrementeurForeach)

    incrementeurForeach = incrementeurForeach + 1

Next valeur
End Sub

そして、テーブルの一部があります

         A                  B               C               D
1        Date A         Prix A          Date B          Prix B
2        2000-01-31         34,84 $     2000-01-31  48,07 $ 
3        2000-05-31         29,22 $     2000-02-29  39,15 $ 
4        2000-06-30         29,00 $     2000-03-31  43,46 $ 
5        2000-07-31         30,25 $     2000-04-30  43,62 $ 
6        2000-08-31         33,27 $     2000-05-31  47,27 $ 

ご助力ありがとうございます