Tri DataGridView avec des dates

Private Sub DataGridView1_SortCompare(sender As Object, e As DataGridViewSortCompareEventArgs) Handles DataGridView1.SortCompare
        'Récupérer le composant
        Dim grid As DataGridView = DirectCast(sender, DataGridView)
        'Définir le nom des colonnes (à changer en fonction de tes propres paramètres)
        Dim colonneDate As String = "Date" 'a adapter
        'Traitement en fonction de la colonne où se situe la cellule en cours d'édition 
        Select Case e.Column.Name
            Case colonneDate
                e.SortResult = System.DateTime.Compare(CDate((e.CellValue1)), CDate((e.CellValue2)))
                e.Handled = True
        End Select
    End Sub
    'on peut mettre ce code dans un bouton
    Private Sub DataGridView1_ColumnHeaderMouseDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseDoubleClick
        With DataGridView1
            .Sort(.Columns("Date"), System.ComponentModel.ListSortDirection.Descending)
        End With
    End Sub
    'on peut mettre ce code dans un bouton
    Private Sub DataGridView1_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick
        With DataGridView1
            DataGridView1.Sort(.Columns("Date"), System.ComponentModel.ListSortDirection.Ascending)
        End With
    End Sub