Trier une liste entre feuille 1 et feuille 2

Bonjour tout le monde,

J'ai besoin de trier une liste de Rendez-vous Mis à jour au fur et à mesure. Elle est donc rangée chronologiquement.

Dans ma Feuille 1 "ListeRDV" J'ai donc Tout mes Rendez-vous à la suite

Dans ma Feuille 2 "ListeClient" j'ai un récapitulatif des Rendez-vous par client.

JE souhaiterais donc savoir si il est possible d'avoir formule qui me trierait automatiquement à chaque ajout dans ma feuille 1 mes Rendez-vous dans ma feuille 2.

Merci d'avance

listeclient listerdv

Bonjour,

un début de piste,

Sub test()
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
LastRow = sh1.Cells(Rows.Count, "B").End(xlUp).Row

For i = 2 To LastRow
    sNom = sh1.Cells(i, "B")
    vDate = sh1.Cells(i, "C")

    If Application.CountIf(sh2.Range("1:1"), sNom) = 0 Then
      col = sh2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
      sh2.Cells(1, col) = sNom
      sh2.Cells(2, col) = vDate
    Else
      col = Application.Match(sNom, sh2.Range("1:1"), 0)
      lig = sh2.Cells(Rows.Count, col).End(xlUp).Row + 1
      sh2.Cells(lig, col) = vDate
    End If
Next
End Sub
Rechercher des sujets similaires à "trier liste entre feuille"