pq code tri bloque

bonjour

pq mon code ne fonctionne pas, j'ai adapté le code de l'enregistreur de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub TriCodeAbs()   Dim plage As range Dim f As Sheets   Set f = "Divers" plage = sh_divers.range("A2:C23")   plage.Select plage.Sort.SortFields.Clear plage.Sort.SortFields.Add Key:=range("A2:A23"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With f.Sort .SetRange range("A1:C23") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With   Set f = Nothing   End Sub

---

Bonjour,

Code:

---

1 2 3

Dim f As Sheets   Set f = "Divers"

---

Variable mal affectée.
Si f désigne une feuille de travail, alors

Code:

---

1 2	Set f = Worksheets("Divers")

---

en fin de procédure

Code:

---

1 2	Set f = Nothing

---

De même pour la variable plage.

Que désigne sh_divers?