Bonjour à tous

Cela devait être très simple mais cela se complique quand je lance le code suivant car sur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
  .Apply '---> Msg Erreur 'Sort reference is not valide. Make sure that it's within the data you want to sort...'
le code en entier

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
 
    Dim oRg As Range
 
    Set oRg = ActiveSheet.Range("A1").CurrentRegion
    Debug.Print oRg.Address '--> Selectionne bien la plage voulue
 
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add _
          Key:=oRg, SortOn:=xlSortOnValues, Order:=xlAscending, _
          DataOption:=xlSortNormal
 
    With ActiveSheet.Sort
       .SortFields.Add Key:=Range("B1"), Order:=xlAscending
       .SetRange oRg
       .Header = xlYes
       .Apply '---------------------------------> Msg Erreur 'Sort reference is not valide. Make sure that it's within the data you want to sort...'
    End With
End Sub
Merci de votre aide sur l'erreur à corriger dans le code