D'abord il manque un point devant C6
Worksheets("Tableau Compte").Range("A" & Ligne) = .[B6] & "-" & .[C6]
On revient toujours au même point : tes dates en sont pas des dates mais du texte !
En plus ton formulaire (par onglet = ce que j'apprécie) admet des dates impossibles !!
Je propose plutôt de mettre une seule zone avec une vraie date
et donc modifier tes macros :
Worksheets("Tableau Compte").Range("A" & Ligne) = .[C6]
Refais ensuite ta macro Sub TrierDates() plus simplement sans tenir compte du tri par le mois, mais uniquement sur la colonne A et ce sera parfait !