Tri d'une collone sous vba

Sub Tri()
    Dim bGenreTri As Boolean
    
    Range("A1:A193").Select 'On sélectionne la plage de données
    Selection.Copy          'On copie la sélection
    Range("B1").Select      'On sélectionne le début de la plage de destination
    ActiveSheet.Paste       'On copie
    
    bGenreTri = MsgBox("Désirez vous un tri croissant ?", vbYesNo, "Choix du tri")
    
    If bGenreTri = vbYes Then     'Tri croissant
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Else                    'Tri décroissant
        Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
    
End Sub

     Range("C3") correspond à la cellule absolue C3 
     Range("$C$3) correspond à la cellule relative C3
     Range("C4:F12") correspond à la plage C4:F12
    Le tout peut se décliner avec $