Créer un bouton effacer et classer

Bonjour

j"importe des donner mais il faudrer les reclasser comme sur la photo ci dessous

les heure sont reclasser ainsi que les réunions (RxCx)

Voici ce que ça donne quand j'importe les données

et en cliquant sur ce bouton

il classerez les donner

par heure comme sur la photo 1

et en cliquant sur ce bouton

toutes les donner sont effacer

comme sur la photo ci dessous

merci d'avance pour votre aide

Salut ilienfrancois,

quelque chose comme ça ?

Sub Image10_Cliquer()
'
With Worksheets("Courses")
    .Range("C3:M" & .Range("E" & Rows.Count).End(xlUp).Row).Sort _
        key1:=.Range("E4"), order1:=xlAscending, _
        key2:=.Range("D4"), order2:=xlAscending, _
        Orientation:=xlTopToBottom, Header:=xlYes
End With
'
End Sub

Sub Image6_Cliquer()
'
With Worksheets("Courses")
    .Range("C4:K" & .Range("E" & Rows.Count).End(xlUp).Row).Value = ""
End With
'
End Sub

A+

merci beaucoup