bonjour j'aimerais avoir votre avis sur quelques lignes de codes. Les dates doivent etre inscritent les unes en dessous des autres et etre trié par ordre chronologique, elles proviennent d'un calendrier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Debit_Click()
Range("c6").End(xlDown).Offset(1, 0).Value = Calendrier.Value
 
 Range("c6").End(xlDown).Offset(1, 0).Select
    Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
Excel me renvoit l'erreur sur la 2e ligne or cela me semble bon !!!
Merci de votre aide