Bonjour,
Une idée avec le petit code suivant (à mettre dans le code de la feuille "Feuil2" feuille de destination):
1 2 3 4 5 6 7 8 9 10 11
| Private Sub Worksheet_Activate()
Cells = Empty
Range("A1").Select
[Base].Copy
ActiveSheet.Paste
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Application.CutCopyMode = False
End Sub |
avec : "Base" le nom de la plage dynamique par la formule:
=DECALER(Feuil1!$A$1:$D$1;;;NBVAL(Feuil1!$A:$A))
L'idée est appliquée dans le fichier attaché...
Cordialement
Partager