
Sub Macrotillage()
'
' Macrotillage Macro
'

'
    Range("A1:AE2045").Select
    Range("C4").Activate
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AE$2045").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$2045").AutoFilter Field:=2, Criteria1:= _
        "=Eau chaude", Operator:=xlOr, Criteria2:="=Eau froide"
    Range("A1:AE2045").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$2045").AutoFilter Field:=2, Criteria1:= _
        "Gaz combustible"
    Range("A1:AE2045").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$2045").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

    Selection.Cut Destination:=Range("D1:D334")
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select

    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
 
    Range("W1:AC1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("U1").Select

    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

  
  
  
' 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

    Selection.Cut Destination:=Range("D1:D334")
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select

    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

    Range("W1:AC1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("U1").Select
  
    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


'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
 
    Selection.Cut Destination:=Range("D1:D334")
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select

    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
    
    Range("W1:AC1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("U1").Select
    
    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.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

'
' radia Macro
'

'
Sheets("Feuil1").Select
    ActiveSheet.Range("$A$1:$AE$2045").AutoFilter Field:=2, Criteria1:="="
    ActiveSheet.Range("$A$1:$AE$2045").AutoFilter Field:=5, Criteria1:= _
        "Radiateur"
    Range("A1:AE2045").Select
    Range("C15").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    Columns("T:T").Select
    Columns("T:T").Cut Destination:=Columns("B:B")
    Columns("B:B").Select
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Element"
    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
    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("F3").Select
    
    ' Macroradia_comptage Macro
'

'
    Range("A1:F167").Select
    Range("F3").Activate
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Range("A1:F167").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "I1"), Unique:=True
    Range("I1:M27").Select
    ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Add2 Key:=Range("J2:J27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Add2 Key:=Range("K2:K27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Add2 Key:=Range("L2:L27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Add2 Key:=Range("M2:M27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil5").Sort
        .SetRange Range("I1:M27")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("N:N").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("N1").Select
    ActiveCell.FormulaR1C1 = "Nombres radiateurs"
    Range("O6").Select
    Columns("N:N").EntireColumn.AutoFit
    Range("Q2").Select
    ActiveWindow.ScrollColumn = 2
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-15],RC[-14],RC[-13],RC[-12],)"
    Range("Q2").Select
    Selection.AutoFill Destination:=Range("Q2:Q167"), Type:=xlFillDefault
    Range("Q2:Q167").Select
    Range("Q174").Select
    ActiveWindow.SmallScroll Down:=-198
    ActiveWindow.ScrollColumn = 2
    Range("U2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-11],RC[-10],RC[-9],RC[-8])"
    Range("U2").Select
    Selection.AutoFill Destination:=Range("U2:U167"), Type:=xlFillDefault
    Range("U2:U167").Select
    Range("V138").Select
    ActiveWindow.SmallScroll Down:=-138
    ActiveWindow.SmallScroll ToRight:=4
    Range("X1").Select
    ActiveCell.FormulaR1C1 = "comptage"
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(R2C17:R167C17,RC[-3])"
    Range("X2").Select
    Selection.AutoFill Destination:=Range("X2:X27"), Type:=xlFillDefault
    Range("X2:X27").Select
    Range("N2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[10]"
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N27")
    Range("N2:N27").Select
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-1]/50"
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O27")
    Range("O2:O27").Select
    Columns("Q:X").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("A:F").Select
    Selection.EntireColumn.Hidden = True
    Range("I2:O27").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("Y10").Select
    
    
    
' nomfeuille Macro



    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "Aller-retour"
    Sheets("Feuil3").Select
    Sheets("Feuil3").Name = "Eau froide Eau chaude"
    Sheets("Feuil4").Select
    Sheets("Feuil4").Name = "Gaz"
    Sheets("Feuil5").Select
    Sheets("Feuil5").Name = "Radiateur"
    Range("Q32").Select
    
    
    End Sub

    
    







































