Bonjour,
Autre proposition (basée sur le filtre élaboré) :
Sub RépartirEchelons()
With Worksheets("Feuil2")
[Base].AdvancedFilter xlFilterCopy, [Ech_12], .Range("A2:C2")
[Base].AdvancedFilter xlFilterCopy, [Ech_34], .Range("D2:F2")
[Base].AdvancedFilter xlFilterCopy, [Ech_56], .Range("G2:I2")
End With
End Sub
La plage de données est nommée (bêtement) Base, en dynamique (voir dans le Gestionnaire de noms).
Les plages zones de critères sont nommées : Ech_12, Ech_34, Ech_56. Mises à côté pour l'illustration, mais elles peuvent être n'importe où, et on peut les masquer.
Cordialement.