macro recherche et range

Bonjour

j ai actuellement un probleme
je vous montre
je dois actualiser des donne de pierre paul et jean
qd j upload j ai parfois leur donnee parfois elle ne change pas donc je n ai rien


Ferrari 12/25/2002 achette
Ford 12/25/2002
renault 12/25/2002 vendu

mais en uploadant un autre jour ca peut changer

Ferrari 12/26/2002 vendu
ford 12/26/2002 achette
renault 12/26/2002

et je voudrai alimenter un historique a chaque upload
pour qu au final je puisse avoir

12/25/2002 12/26/2002
ferrari achette vendu
12/26/2002
Ford vendu
12/2/2002
renault vendu


c est sur, c est un peu complique mais je ne desespere pas qu un geni puisse me donner un coup de pouce
j ai deja commence j ai fait trois boucle: une qui lis et repere les donne dans le premier tableau (car tout ceci est fait en excel bien sur) mais les autres....
Sub Historical()

Dim Voitures As String
Dim Dat As Date
Dim Achat_vente As String
Dim PageA As Worksheet
Dim PageB As Worksheet
Set PageA = Sheets("PageA")
Set PageB = Sheets("PageB")

If Achat_vente = "" Then

For i = 1 To 3
Voiture = PageA.Cells(i, 1)
Dat = PageA.Cells(i, 2)
Achat_Vente = PageA.Cells(i, 3)

Next i

End If

If Voitures = PageB.Cells(j + 1, 1) Then
If Dat = PageB.Cells(j, 1) Then
For j = 1 To 6

Next j

End If

If Dat <> "" Then PageA.Cells(i, 2) = PageB.Cells(j, k)
If Down_up <> "" Then PageA.Cells(i, 2) = PageB.Cells(j, k)

For k = 2 To 256
PageB.Cells(j, k) = Dat
Achat_vente = PageB.Cells(j + 1, k)

Next k

End If
End Sub