1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94
| Sheets(3).Select
If ActiveSheet.Name <> feuille _
Then
Sheets("Modèle").Select
Sheets("Modèle").Copy After:=Sheets(2)
ActiveSheet.Name = feuille
ligne = 4
'Préparation de la feuille de synthèse
Sheets("Synthèse").Select
Range("D4").Select
Range(Selection, Selection.End(xlDown)).Select
j = Selection.Rows.Count + 4
Range("D" & j).Select
ActiveCell.Formula = "=" & feuille & "!B13"
Range("E" & j).Select
ActiveCell.Formula = "=" & feuille & "!C13"
Range("F" & j).Select
ActiveCell.Formula = "=" & feuille & "!E13"
Range("G" & j).Select
ActiveCell.Formula = "=" & feuille & "!F13"
Range("H" & j).Select
ActiveCell.Formula = "=" & feuille & "!G13"
Range("I" & j).Select
ActiveCell.Formula = "=" & feuille & "!H13"
Range("J" & j).Select
ActiveCell.Formula = "=" & feuille & "!I13"
Range("K" & j).Select
ActiveCell.Formula = "=" & feuille & "!J13"
Range("L" & j).Select
ActiveCell.Formula = "=" & feuille & "!K13"
Range("M" & j).Select
ActiveCell.Formula = "=" & feuille & "!L13"
Range("N" & j).Select
ActiveCell.Formula = "=" & feuille & "!M13"
Range("O" & j).Select
ActiveCell.Formula = "=" & feuille & "!N13"
Range("P" & j).Select
ActiveCell.Formula = "=" & feuille & "!O13"
Range("Q" & j).Select
ActiveCell.Formula = "=" & feuille & "!P13"
Range("R" & j).Select
ActiveCell.Formula = "=" & feuille & "!Q13"
Range("S" & j).Select
ActiveCell.Formula = "=" & feuille & "!R13"
Range("T" & j).Select
ActiveCell.Formula = "=" & feuille & "!S13"
Range("U" & j).Select
ActiveCell.Formula = "=" & feuille & "!T13"
Range("V" & j).Select
ActiveCell.Formula = "=" & feuille & "!U13"
Range("W" & j).Select
ActiveCell.Formula = "=" & feuille & "!V13"
Range("X" & j).Select
ActiveCell.Formula = "=" & feuille & "!X13"
Range("Y" & j).Select
ActiveCell.Formula = "=" & feuille & "!X13"
Range("Z" & j).Select
ActiveCell.Formula = "=" & feuille & "!AB13"
Range("AA" & j).Select
ActiveCell.Formula = "=" & feuille & "!AC13"
Range("AB" & j).Select
ActiveCell.Formula = "=" & feuille & "!AE13"
Range("AC" & j).Select
ActiveCell.Formula = "=" & feuille & "!AF13"
Range("AD" & j).Select
ActiveCell.Formula = "=" & feuille & "!AG13"
Range("AE" & j).Select
ActiveCell.Formula = "=" & feuille & "!AH13"
Range("AF" & j).Select
ActiveCell.Formula = "=" & feuille & "!AI13"
Range("AG" & j).Select
ActiveCell.Formula = "=" & feuille & "!AJ13"
Range("AH" & j).Select
ActiveCell.Formula = "=" & feuille & "!AK13"
Range("AI" & j).Select
ActiveCell.Formula = "=" & feuille & "!AL13"
Range("AJ" & j).Select
ActiveCell.Formula = "=" & feuille & "!AM13"
Range("AK" & j).Select
ActiveCell.Formula = "=" & feuille & "!AN13"
Range("AL" & j).Select
ActiveCell.Formula = "=" & feuille & "!AO13"
Range("AM" & j).Select
ActiveCell.Formula = "=" & feuille & "!AP13"
Range("AN" & j).Select
ActiveCell.Formula = "=" & feuille & "!AQ13"
Range("AO" & j).Select
ActiveCell.Formula = "=" & feuille & "!AR13"
Range("AP" & j).Select
ActiveCell.Formula = "=" & feuille & "!AT13"
Range("AQ" & j).Select
ActiveCell.Formula = "=" & feuille & "!AU13"
Range("A1").Select
Sheets(feuille).Select |
Partager