Boucle avec la syntaxe Range

Bonjour,

Je voudrais automatiser un tri de tableau avec une boucle pour les sélectionner, mais je n'arrive pas à trouver la syntaxe qui me le permettrait.

Voici mon exemple:

    Set tableau1 = Range("B13").CurrentRegion
    tableau1.Sort Key1:=Range("B13"), Order1:=xlDescending, key2:=Range("E13"), Order2:=xlDescending, Header:=xlYes

    Set tableau2 = Range("L13").CurrentRegion
    tableau2.Sort Key1:=Range("L13"), Order1:=xlDescending, key2:=Range("O13"), Order2:=xlDescending, Header:=xlYes

    Set tableau3 = Range("V13").CurrentRegion
    tableau3.Sort Key1:=Range("V13"), Order1:=xlDescending, key2:=Range("Y13"), Order2:=xlDescending, Header:=xlYes

Et ainsi de suite 14 fois, sachant qu'entre chaque tableau il y a un espace de 10 cellules (De B à L, de L à V ...) et que la ligne sera toujours la n°13.

Y a t-il un moyen d'avoir un incrément automatique de 10 pour chaque Range ?

Merci si vous pouvez m'aider !!

Bonjour Oriane,

Voici

Sub TriTbx()
  Dim Ind As Integer, Tableau As Range
  Dim RngKey1 As Range, RngKey2 As Range
  ' Pour les 14 tableaux
  For Ind = 0 To 13
    Set Tableau = Cells(13, 2 + (Ind * 10)).CurrentRegion
    Set RngKey1 = Cells(13, 2 + (Ind * 10))
    Set RngKey2 = Cells(13, 5 + (Ind * 10))
    Tableau.Sort Key1:=RngKey1, Order1:=xlDescending, key2:=RngKey2, Order2:=xlDescending, Header:=xlYes
  Next Ind
  ' Effacer les variabls objet
  Set Tableau = Nothing: Set RngKey1 = Nothing: Set RngKey2 = Nothing
End Sub

A+

Ok, merci bcp !