pouvez vous me decrire ce programme



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sheets("Chiffrages").Select
    Worksheets("Chiffrages").Rows(sup).Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    ActiveWindow.SmallScroll ToRight:=14
    Range("P" & sup + 1 & ":S" & sup + 1).Select
    Selection.AutoFill Destination:=Range("P" & sup & ":S" & sup + 1), Type:=xlFillDefault
    Range("P" & sup & ":S" & sup + 1).Select
    Range("P" & sup).Select
    Sheets("Tables de calcul").Select
    Rows(sup).Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    Rows(sup + 1).Select
    Selection.AutoFill Destination:=Rows(sup & ":" & sup + 1), Type:=xlFillDefault
    Sheets("Chiffrages").Select
    ActiveWindow.LargeScroll ToRight:=-2
    Range("A" & sup).Select