Bonjour,
N'ayant plus datepicker, je ne peux pas tester, mais tu peux faire ceci
1- passe tes données en tableau
2- trie ton tableau une première fois sur la date
3- modifie ton code comme suit (pas besoin de bouton)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Tableau1[[DÉBIT]:[CRÉDIT]]")) Is Nothing Then
ActiveSheet.ListObjects(1).Sort.Apply
End If
ShowSolde
End Sub
Le fait de passer en tableau devrait aussi te simplifier le calcul du solde.