bonjour DURATON, Salut Gérard
Je constate que mon ami Gérard a dégainé plus vite que moi, et il semblerait que son script soit plus performant que le mien en ce sens que les données publiées sur les colonnes C et D, de chaque pages suivent l'ordre alphabétique des colonnes A et B, par contre , mon code ne se limite pas à un nombre de lignes données.
Je vous le donne en pâture
Sub MacroDécoupageImpression()
'
' Macro1 Macro
' Macro enregistrée le 02/07/2004 par Rénato
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
nblig = .Rows.Count
Range("C1") = nblig
End With
Application.Goto Reference:="INDIRECT(""A""&ROUND((R1C3+2)/2,0))"
Range(Selection, Selection.SpecialCells(xlLastCell)).Select
Selection.Cut
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1:B1").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
Bonne soirée à vous deux et à bientôt
Rénato