[VBA] Trier et garder dates similaire

Bonjour,

Je rencontre une problème que je n'arrive pas à me défaire.

J'ai une liste de prix avec des dates différentes.

J'aimerais pouvoir trier les dates et garder uniquement les mêmes pour chaque produits.

Se que j'avais pensé c'était de trier les dates de la plus anciennes à la plus récentes avec ce code

Dim Lg As Long
Dim OldFormat  As String

  Application.ScreenUpdating = False
  Lg = range("A" & Rows.Count).End(xlUp).Row
  OldFormat = range("A2").NumberFormat
  Columns(1).NumberFormat = "0"
  range("A2:R" & Lg).Sort Key1:=range("A2"), Order1:=xlAscending, Header:=xlNo, _
                  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                  DataOption1:=xlSortNormal
  Columns(1).NumberFormat = OldFormat

End Sub

mais pour la suite je bloque. J'imagine que je dois faire une boucle mais je sais pas comment.

Je vous remets un pièce-jointe le fichier.

Merci à ceux qui pourront m'aider.

Bonjour le forum

oui mais ta pièce jointe elle n'y est pas

a+

papou

Oups désolé le voici. Il était trop volumineux.

j'espère que sa va marché