Bonjour les Kracks,

J'ai un bloc d'instruction (voir ci-dessous) à répéter pour chaque onglet de mon workbook, et j'aimerai savoir si il y a un moyen de l'enregistrer afin de ne répéter qu'une abréviation au lieu d'alourdir la macro " un peu comme une variable >maVariable = Range("a1").value<, sauf que là j'aurai carrément tout un bloc d'instruction? Est-ce possible?

D'avance merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Range("A10:P" & 10 + Range("h6").Value + Range("I7").Value).Select  'Selection.AutoFill Destination:=Range("A10:P" & varMatched2 + 10)
Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("A10:P" & (9 + Range("h6").Value)).Select
Else
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & 9 + Range("h6").Value