Sub tri_date_tm()
'variable
Dim Name As String
Dim DernLigne As Long
Dim DernLigne2 As String
Dim DernLigne3 As String
Dim ligne As Long
'select la feuille
ActiveSheet.Select
'validation lancement de la macro
Select Case Msgbox("Entrer la lettre de la colonne a trier!", vbOKCancel + vbQuestion, "Tri par date")
Case vbOK
'procédure si click sur Ok
Name = InputBox("saisissez le nom de la colonne") 'saisie de la colonne
'If TypeName(Name) = "vbinteger" Then GoTo End1 'ne fonctionne pas...
If Name = Empty Then GoTo End1
'tri des cells
Columns(Name).Select
DernLigne = Range("A65536").End(xlUp).Row 'determine la derniere case non vide
DernLigne2 = "Z" & DernLigne
Dernlign3 = "A2:" & DernLigne2 'determine la plage a trier
Range(Dernlign3).Sort Key1:=Range("O2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=4, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Case vbCancel
'Cas si annulé par utilisateur
End1:
End Sub