
Sub Macrotillage()
'
' Macrotillage Macro
'

'
    Range("A1:AE1384").Select
    Range("C4").Activate
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AE$1384").AutoFilter Field:=2, Criteria1:="=Aller" _
        , Operator:=xlOr, Criteria2:="=Retour"
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Range("A20").Select
    Sheets("Feuil1").Select
    Range("C11").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$AE$1384").AutoFilter Field:=2, Criteria1:= _
        "=Eau chaude", Operator:=xlOr, Criteria2:="=Eau froide"
    Range("A1:AE1384").Select
    Range("C11").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Range("C194").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$AE$1384").AutoFilter Field:=2, Criteria1:= _
        "Gaz combustible"
    Range("A1:AE1384").Select
    Range("C194").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Range("C15").Select
    Sheets("Feuil1").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$AE$1384").AutoFilter Field:=2
    Range("C15").Select
    

' mep Macro feuil 2
'

'
    Sheets("Feuil2").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").EntireColumn.AutoFit
    Columns("B:B").Select
    Selection.Cut
    Range("D1").Select
    Application.CutCopyMode = False
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 158
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.Cut Destination:=Range("D1:D334")
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.ScrollRow = 297
    ActiveWindow.ScrollRow = 296
    ActiveWindow.ScrollRow = 295
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 287
    ActiveWindow.ScrollRow = 285
    ActiveWindow.ScrollRow = 282
    ActiveWindow.ScrollRow = 281
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 278
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 276
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 269
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.Cut Destination:=Range("B1:B334")
    Range("B1:B334").Select
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("C:C").ColumnWidth = 16.71
    Columns("D:D").Select
    Selection.Cut Destination:=Columns("C:C")
    Range("E1").Select
    Selection.Cut Destination:=Range("D1")
    Range("D1").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Columns("F:F").Select
    Selection.Cut Destination:=Columns("E:E")
    Range("G1").Select
    Selection.Cut Destination:=Range("F1")
    Range("F1").Select
    Selection.Cut Destination:=Range("G1")
    Columns("G:G").Select
    Selection.Cut Destination:=Columns("F:F")
    Columns("I:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("H1").Select
    Selection.Cut Destination:=Range("G1")
    Columns("I:I").Select
    Selection.Cut Destination:=Columns("H:H")
    Columns("J:J").Select
    Selection.Cut Destination:=Columns("I:I")
    Columns("K:K").Select
    Selection.Cut Destination:=Columns("J:J")
    Columns("J:J").Select
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    Range("W1:AC1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("U1").Select
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Range("K1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 15
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ActiveCell.FormulaR1C1 = "diamtre"
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("N:N").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Range("N1").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    
    'echange_d Macro
    Sheets("Feuil2").Select
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Diamtre"
    Columns("L:L").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    
        Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:J").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:H").Select
    Selection.Delete Shift:=xlToLef
    Columns("E:E").Select
    Selection.Cut
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "1.1"
    Range("F2").Select
    
    
    
    
    
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",ROUNDUP((RC[-1]/1000)*R1C7,0))"
    
    
    
    
    
    
    
    
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F1244"), Type:=xlFillDefault
    Range("F2:F1244").Select
    ActiveWindow.SmallScroll Down:=-78

  
  Range("F1").Select
    ActiveCell.FormulaR1C1 = "Majoration"
    Range("F1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
     Columns("C:C").Select
    ActiveWorkbook.Worksheets("feuil2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("feuil2").Sort.SortFields.Add Key:=Range("C1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("feuil2").Sort
        .SetRange Range("A2:G1244")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If Cells(i, 4) = Cells(i - 1, 4) Then
            Cells(i - 1, "E") = Cells(i - 1, "E") + Cells(i, "e")
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
    
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("feuil2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("feuil2").Sort.SortFields.Add Key:=Range("B1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("feuil2").Sort
        .SetRange Range("A2:G1216")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 'Suppr()

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
' divis1000 Macro
'

  Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "L(m)"

    For i = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
        Cells(i, 6) = Cells(i, 5) / 1000
        Next i
  ' mmmmmm Macro
'

'
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
    Range("I1:M14").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("J7").Select
End Sub
  
  
  
' mep Macro feuil3
'

'
    Sheets("Feuil3").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").EntireColumn.AutoFit
    Columns("B:B").Select
    Selection.Cut
    Range("D1").Select
    Application.CutCopyMode = False
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 158
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.Cut Destination:=Range("D1:D334")
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.ScrollRow = 297
    ActiveWindow.ScrollRow = 296
    ActiveWindow.ScrollRow = 295
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 287
    ActiveWindow.ScrollRow = 285
    ActiveWindow.ScrollRow = 282
    ActiveWindow.ScrollRow = 281
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 278
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 276
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 269
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.Cut Destination:=Range("B1:B334")
    Range("B1:B334").Select
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("C:C").ColumnWidth = 16.71
    Columns("D:D").Select
    Selection.Cut Destination:=Columns("C:C")
    Range("E1").Select
    Selection.Cut Destination:=Range("D1")
    Range("D1").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Columns("F:F").Select
    Selection.Cut Destination:=Columns("E:E")
    Range("G1").Select
    Selection.Cut Destination:=Range("F1")
    Range("F1").Select
    Selection.Cut Destination:=Range("G1")
    Columns("G:G").Select
    Selection.Cut Destination:=Columns("F:F")
    Columns("I:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("H1").Select
    Selection.Cut Destination:=Range("G1")
    Columns("I:I").Select
    Selection.Cut Destination:=Columns("H:H")
    Columns("J:J").Select
    Selection.Cut Destination:=Columns("I:I")
    Columns("K:K").Select
    Selection.Cut Destination:=Columns("J:J")
    Columns("J:J").Select
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    Range("W1:AC1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("U1").Select
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Range("K1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 15
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ActiveCell.FormulaR1C1 = "diamtre"
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("N:N").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Range("N1").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    
    'echange_d Macro
    Sheets("feuil3").Select
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Diamtre"
    Columns("L:L").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    
        Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:J").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:H").Select
    Selection.Delete Shift:=xlToLef
    Columns("E:E").Select
    Selection.Cut
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "1.1"
    Range("F2").Select
     ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",ROUNDUP((RC[-1]/1000)*R1C7,0))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F1244"), Type:=xlFillDefault
    Range("F2:F1244").Select
    ActiveWindow.SmallScroll Down:=-78

  
  Range("F1").Select
    ActiveCell.FormulaR1C1 = "Majoration"
    Range("F1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
     Columns("C:C").Select
    ActiveWorkbook.Worksheets("feuil3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("feuil3").Sort.SortFields.Add Key:=Range("C1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("feuil3").Sort
        .SetRange Range("A2:G1244")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If Cells(i, 4) = Cells(i - 1, 4) Then
            Cells(i - 1, "E") = Cells(i - 1, "E") + Cells(i, "e")
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
    
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("feuil3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("feuil3").Sort.SortFields.Add Key:=Range("B1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("feuil3").Sort
        .SetRange Range("A2:G1216")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 'Suppr()

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


' divis1000 Macro
'

  Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "L(m)"

    For i = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
        Cells(i, 6) = Cells(i, 5) / 1000
        Next i
        
' mmmmmm Macro
'

'
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
    Range("I1:M14").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("J7").Select
End Sub

'mep Macro feuil4 (gaz)
'

'
   
    Sheets("feuil4").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").EntireColumn.AutoFit
    Columns("B:B").Select
    Selection.Cut
    Range("D1").Select
    Application.CutCopyMode = False
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 158
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.Cut Destination:=Range("D1:D334")
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.ScrollRow = 297
    ActiveWindow.ScrollRow = 296
    ActiveWindow.ScrollRow = 295
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 287
    ActiveWindow.ScrollRow = 285
    ActiveWindow.ScrollRow = 282
    ActiveWindow.ScrollRow = 281
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 278
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 276
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 269
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.Cut Destination:=Range("B1:B334")
    Range("B1:B334").Select
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("C:C").ColumnWidth = 16.71
    Columns("D:D").Select
    Selection.Cut Destination:=Columns("C:C")
    Range("E1").Select
    Selection.Cut Destination:=Range("D1")
    Range("D1").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Columns("F:F").Select
    Selection.Cut Destination:=Columns("E:E")
    Range("G1").Select
    Selection.Cut Destination:=Range("F1")
    Range("F1").Select
    Selection.Cut Destination:=Range("G1")
    Columns("G:G").Select
    Selection.Cut Destination:=Columns("F:F")
    Columns("I:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("H1").Select
    Selection.Cut Destination:=Range("G1")
    Columns("I:I").Select
    Selection.Cut Destination:=Columns("H:H")
    Columns("J:J").Select
    Selection.Cut Destination:=Columns("I:I")
    Columns("K:K").Select
    Selection.Cut Destination:=Columns("J:J")
    Columns("J:J").Select
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    Range("W1:AC1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("U1").Select
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Range("K1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 15
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ActiveCell.FormulaR1C1 = "diamtre"
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("N:N").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Range("N1").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    
    

    ' Macro7 Macro
'

'
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Test vanne"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Test conduite"
    Range("K1").Select
    Columns("I:I").EntireColumn.AutoFit
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "vanne"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "reduc"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-6]=""Vanne  Pdc fixe"",1,0)"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-6]=""Vanne  Pdc fixe"",1,0)"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H492"), Type:=xlFillDefault
    Range("H2:H492").Select
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 459
    ActiveWindow.ScrollRow = 453
    ActiveWindow.ScrollRow = 449
    ActiveWindow.ScrollRow = 444
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 432
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 423
    ActiveWindow.ScrollRow = 416
    ActiveWindow.ScrollRow = 410
    ActiveWindow.ScrollRow = 406
    ActiveWindow.ScrollRow = 399
    ActiveWindow.ScrollRow = 394
    ActiveWindow.ScrollRow = 390
    ActiveWindow.ScrollRow = 385
    ActiveWindow.ScrollRow = 379
    ActiveWindow.ScrollRow = 375
    ActiveWindow.ScrollRow = 371
    ActiveWindow.ScrollRow = 365
    ActiveWindow.ScrollRow = 339
    ActiveWindow.ScrollRow = 333
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 319
    ActiveWindow.ScrollRow = 314
    ActiveWindow.ScrollRow = 305
    ActiveWindow.ScrollRow = 299
    ActiveWindow.ScrollRow = 293
    ActiveWindow.ScrollRow = 282
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 164
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 57
    ActiveWindow.SmallScroll Down:=-93
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]=""Conduite"",RC[-3],0)"
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I492")
    Range("I2:I492").Select
    Range("K2").Select
    ActiveWindow.SmallScroll Down:=-63
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "reduc"
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "Nourice"
    Range("J2").Select
    ActiveWindow.SmallScroll Down:=-15
    ActiveCell.FormulaR1C1 = "=IF(RC[-8]=""Nourrice aller"",RC[-4],0)"
    Range("J2").Select
    Selection.AutoFill Destination:=Range("J2:J492")
    Range("J2:J492").Select
    Cells.Select
    Range("L5").Activate
    Selection.AutoFilter
    Selection.AutoFilter
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "rduction"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-10]=""rduction"",1,0)"
    Range("L2").Select
    Selection.AutoFill Destination:=Range("L2:L492")
    Range("L2:L492").Select
    Range("O3").Select
    ActiveCell.FormulaR1C1 = "Vanne  Pfc fixe"
    Range("O4").Select
    ActiveCell.FormulaR1C1 = "Conduite"
    Range("O5").Select
    ActiveCell.FormulaR1C1 = "Nourrice"
    Range("O6").Select
    ActiveCell.FormulaR1C1 = "rduction"
    Range("P6").Select
    Columns("O:O").EntireColumn.AutoFit
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "longueur (m)"
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "nombre"
    Range("Q6").Select
    Columns("P:P").EntireColumn.AutoFit
    Range("O2:Q6").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("P3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("Q3").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-9]:R[489]C[-9])"
    Range("Q4").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("P4").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C[-7]:R[488]C[-7])/1000"
    Range("P5").Select
    ActiveWindow.SmallScroll Down:=-36
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C[-6]:R[487]C[-6])"
    Range("P6").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("Q6").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C[-5]:R[486]C[-5])"
    Range("Q7").Select
    ActiveWindow.SmallScroll Down:=-63
    Range("P3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q4:Q5").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("P6").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("P4").Select
    Selection.NumberFormat = "0.00"
    Selection.NumberFormat = "0.0"
    Selection.NumberFormat = "0"
    Columns("A:A").Select
    Selection.EntireColumn.Hidden = True
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = True
    Columns("C:C").Select
    Selection.EntireColumn.Hidden = True
    Columns("D:D").Select
    Selection.EntireColumn.Hidden = True
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Columns("G:G").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    Selection.EntireColumn.Hidden = True
    Columns("I:I").Select
    Selection.EntireColumn.Hidden = True
    Columns("J:J").Select
    Selection.EntireColumn.Hidden = True
    Columns("K:K").Select
    Selection.EntireColumn.Hidden = True
    Columns("L:L").Select
    Selection.EntireColumn.Hidden = True
    Columns("M:M").Select
    Selection.EntireColumn.Hidden = True
    
    
    
    
    End Sub

    
    

































