Exporter données TCD dans une nouvelle feuille sous condition VBA

Bonjour,

Voici mon problème. Le fichier est joint.
https://www.cjoint.com/c/JEknhVtwzkq

J'ai besoin de créer une macro que j'affecterai à un bouton et qui fera les choses suivantes:

1. Détecter dans le TCD, pour le même produit et par personne, si la différence entre la date d'achat et la date de vente est inférieure à 5 jours.

2. Exporter ces données sans les développer et sous forme d'une partie du TCD dans une nouvelle feuille qui devra s'appeler "Resultat".

Par exemple, dans le fichier joint la personne A a acheté de la viande le 4 mai et l'a revendue le 5, donc en moins de 5 jours.
S'il y avait deux ou plus personnes dans la même situation, elles devraient apparaître toutes dans l'onglet de résultat et de manière lisible.

Le résultat que je souhaite avoir est représenté dans l'onglet "Resultat".

Merci par avance de votre aide!