Fusion tableau avec doublons, triplons, quadruplons....

Tu n'as qu'à trier ton fichier par ordre alphabétique des personnes et par ordre de date comme deuxième clé.
Qu'est-ce que tu as fait jusqu'à maintenant?

Bonsoir

Merci pour ta réponse l'idée est bonne ; j'ai fait ceci

Sub trier()
    Range("$A$1:$C$142").Select
    Selection.Columns.Sort key1:=Columns("c"), Order1:=xlAscending, Key2:=Columns("a"), Order2:=xlAscending, Header:=xlYes
End Sub

du coup , comment supprimer les  lignes en doublons ou triplons avec les anciennes dates

Merci de votre aide

J'ai fait ce code qui ma foi est basique mais semble fonctionner

Quel est votre avis .?

Sub supp()
Dim cell As Range
Dim cell1 As Range
For Each cell In Range("$A$2:$A$142")
'cell.Offset(0, 2)
For Each cell1 In Range("$A$2:$A$142")
If cell.Address <> cell1.Address And cell.Value = cell1.Value And cell.Offset(0, 1).Value = cell1.Offset(0, 1).Value And cell.Offset(0, 2).Value < cell1.Offset(0, 2).Value Then
'MsgBox (cell1.Value)
cell1.Select
  ActiveCell.EntireRow.Delete Shift:=xlUp
End If
Next cell1
 Next cell
End Sub

J'ai répondu un peu rapidement, je n'ai pas remarqué que tu étais en VB / VBA.
En général, on lit chaque entrée, puis on la place dans un espace "temporaire".
On lit la suivante et on la compare avec le temporaire.
Si c'est pareil (ici le nom), on remplace le temporaire par la suivante.
Sinon, on écrit le temporaire en sortie et on place la suivante dans le temporaire.
Il faut juste faire attention au début et à la fin.
Au début, on place quelque chose de reconnaissable dans le temporaire. Si c'est ça qui s'y trouve, on n'écrit rien.

On peut toujours passer à côté de ceci en lisant la première entrée hors de la boucle. Le temporaire contiendra toujours quelque chose de valide.
À la fin, il reste quelque chose dans le temporaire. On l'écrit inconditionnellement.
Ceci ne fonctionne que si le fichier est trié comme j'ai mentionné.

Bonjour

Merci de ta réponse , mais désolé j’ai beau lire et relire je n'y comprends rien .

Pour en revenir a mon code ci dessus . IL fonctionne mais je suis obligé de le relancer deux a trois fois pour avoir un traitement fini .

Quelqu’un pourrait il me le modifier pour une efficacité sur un seule exécution?

Merci d'avance

Tu l'auras compris, je ne connais pas ce langage.
J'ai essayé de modifier ton code pour expliquer ce que je voulais dire.
J'ai mis des commentaires avec des '...'
 
Sub supp()
Dim cellIn As Range
Dim cellOut As Range
... Placer la première entrée dans cellOut
... S'aranger pour commencer à la seconde entrée.
For Each cellIn In Range("$A$2:$A$142")
'cellIn.Offset(0, 2)  ... Ça fait qoi ?
... Ci-après si les noms sont différents
If cellIn.Address <> cellOut.Address And cellIn.Value = cellOut.Value And cellIn.Offset(0, 1).Value = cellOut.Offset(0, 1).Value And cellIn.Offset(0, 2).Value < cellOut.Offset(0,
2).Value Then
'MsgBox (cellOut.Value)   ... Tu écris en sortie ?
End If
... Ici tu recopies cellIn dans cellOut
 Next cellIn
'MsgBox (cellOut.Value)   ... Tu écris en sortie ?
End Sub