Sub back_up()
'__________créer par__SABIA Hicham_________________________
' result_copy Macro
'
'Sheets("Recap_Ecoutes").Select


 '------------------ Message box ----------------------------------
    'MsgBox Application.WorksheetFunction.Average(Range(H25, H32, H39))
    If MsgBox("Valider l'évaluation ? " & Round(Range("C5") * 100, 2) & "%", 36, "Validation de l'Eval") = vbYes Then
    'Code à exécuter si OUI
    
    Application.ScreenUpdating = False
 
 '--- Fin de la macro reviens sur feuille initiale
 ' et libére l'affichage
 Sheets(1).Activate
 Application.StatusBar = False
 Application.ScreenUpdating = True
 
'------------------ Insert ligne ----------------------------------
    Application.ScreenUpdating = False
    Sheets("Recap_Ecoutes").Select
    Rows("2:2").Select
    Selection.insert Shift:=xlDown
        Rows("3:3").Select
    Selection.Copy
    Rows("2:2").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    '------------------ Format de cellule ----------------------------------
    Application.ScreenUpdating = False
    Range("E2:L2").Select
    Range("E2:L2,N2:U2").Select
    Range("N2").Activate
    Selection.Style = "Percent"
    Sheets("Recap_Ecoutes").Select
    Range("C2").Select
    Selection.NumberFormat = "d/m/yyyy"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=""W""&WEEKNUM(RC[2])"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]&RC[3]"
   
    '------------------ copie des formules ----------------------------------
    Application.ScreenUpdating = False
    Sheets("Recap_Ecoutes").Select
    Range("M3").Select
    Selection.Copy
    Range("M2").Select
    ActiveSheet.Paste
    Range("Q3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q2").Select
    ActiveSheet.Paste
    Range("U3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("U2").Select
    ActiveSheet.Paste
    
    '------------------ copie EVALUATEUR ----------------------------------
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("G9").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    '------------------ copie Agent NAME ----------------------------------
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("E15").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    '------------------ copie DATE ----------------------------------
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("K9").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
  '-------------------copie Accueil ------------------------------
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("H17").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
   '-------------------copie convivialité------------------------------
    Application.ScreenUpdating = False
       Sheets("Grille d'éval").Select
    Range("H18").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    '------------------ copie Sourire ----------------------------------
    Application.ScreenUpdating = False
       Sheets("Grille d'éval").Select
    Range("H19").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("H2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
            '------------------ copie Questionnement ----------------------------------
    Application.ScreenUpdating = False
       Sheets("Grille d'éval").Select
    Range("H20").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            '------------------ copie Le Traitement des objections ----------------------------------
    Application.ScreenUpdating = False
       Sheets("Grille d'éval").Select
    Range("H21").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("J2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            '------------------ copie L'ecoute ----------------------------------
    Application.ScreenUpdating = False
       Sheets("Grille d'éval").Select
    Range("H22").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("K2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            '------------------ copie La reformulation ----------------------------------
    Application.ScreenUpdating = False
       Sheets("Grille d'éval").Select
    Range("H23").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            '------------------ copie La prise de congés ----------------------------------
    Application.ScreenUpdating = False
       Sheets("Grille d'éval").Select
    Range("H24").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("M2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
   '_________________________________________________________________________Metrise des outils___________________________________________
  
   '___________________________________________copie La Recherche_________________________________________________________________________
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("H29").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("P2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    '___________________________________________copie La Lecture _________________________________________________________________________
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("H30").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("Q2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
  '___________________________________________copie l'Historisation_______________________________________________________________________
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("H31").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("R2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            
  '_________________________________________________________________________Metrise des Process___________________________________________
         
   '___________________________________________copie La connaissance______________________________________________________________________
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("H36").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("U2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    '________________________________________________copie La recherche________________________________________________________________
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("H37").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("V2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
   '________________________________________________copie La Communication des Informations___________________________________________
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("H38").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("W2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   '_________________________________________________________________________formules blocs___________________________________________
    Application.ScreenUpdating = False
    Sheets("Recap_Ecoutes").Select
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-8]:RC[-1])"
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-1])"
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-1])"
    Range("X3").Select
    Sheets("Grille d'éval").Select
    Range("K13").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("AA2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("AA:AA").EntireColumn.AutoFit
    Columns("AA:AA").ColumnWidth = 15.29
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "65713736"
    Range("AA3").Select
    Range("AA2").Select
    Selection.NumberFormat = "@"
    
    '___________________________pourcentage moyenne globale________________________________________________
    Application.ScreenUpdating = False
    Range("AC2").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-5],RC[-10],RC[-15])"
    Selection.NumberFormat = "0.0%"
    Selection.NumberFormat = "0.00%"
    
    
       '_________________________________________________________________________CALL INFO__________________________________________
    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("K11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("Z2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Grille d'éval").Select
    Range("K13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("AA2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AA2").Select

'_________________________________________________________________________call raison__________________________________________

    Application.ScreenUpdating = False
    Sheets("Grille d'éval").Select
    Range("K15:K17").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.UnMerge
    Range("K15").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("AB2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Grille d'éval").Select
    Range("K15:K17").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.ClearContents
    
  '_________________________________________________________________________Commentaire GRC___________________________________________
    
        Application.ScreenUpdating = False
        Sheets("Grille d'éval").Select
    Range("E17:F26").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.UnMerge
    Range("E17").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("O2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G35").Select
    Sheets("Grille d'éval").Select
    Range("E17:F26").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    
'_________________________________________________________________________Commentaire Maitrise outils___________________________________________
    Application.ScreenUpdating = False
 Sheets("Grille d'éval").Select
    Range("E27:F33").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.UnMerge
    Range("E27").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("T2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Grille d'éval").Select
    Range("E27:F33").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
'_________________________________________________________________________Commentaire Maitrise des proces_______________________________________
Application.ScreenUpdating = False
Sheets("Grille d'éval").Select
    Range("E34:F40").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.UnMerge
    Range("E34").Select
    Selection.Copy
    Sheets("Recap_Ecoutes").Select
    Range("Y2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Grille d'éval").Select
    Range("E34:F40").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
'_________________________________________________________________________format%___________________________________________
    Application.ScreenUpdating = False
    Sheets("Recap_Ecoutes").Select
    Range("F2:V2").Select
    Selection.Style = "Percent"
    Sheets("Recap_Ecoutes").Select
    Columns("Y:Y").Select
    Range("Y:Y,T:T").Select
    Range("T1").Activate
    Range("Y:Y,T:T,O:O").Select
    Range("O1").Activate
    Range("Y:Y,T:T,O:O,AB:AB").Select
    Range("AB1").Activate
    Selection.ColumnWidth = 85
    Rows("2:2").EntireRow.AutoFit
'_________________________________________________________________________CLEANING GRILLE___________________________________________
   ' refre Macro
'
    Application.ScreenUpdating = False
    Sheets("TCD").Select
    Range("B16").Select
    ActiveWorkbook.RefreshAll
    Sheets("Grille d'éval").Select
    Range("G9").Select
    Selection.ClearContents
    Range("K9").Select
    Selection.ClearContents
    Range("E17").Select
    Selection.ClearContents
    Range("E27").Select
    Selection.ClearContents
    Range("E34").Select
    Selection.ClearContents
    Range("E15:F15").Select
    Selection.ClearContents
    Range("H17:H24,H36:H38,H29:H31").Select
    Range("H31").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("TCD").Select
    ActiveWorkbook.SlicerCaches("Segment_Agent_Name").ClearManualFilter
    Sheets("Grille d'éval").Select
    Range("G9:H9").Select
    Sheets("Grille d'éval").Select
    Range("K11,K13").Select
    Range("K13").Activate
    Selection.ClearContents
    
    MsgBox "Les Résultats ont été enregistré !"
End If
End Sub

Sub Filtre()
'
' Filtre Macro
'mlkb

'
    Range("B1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Recap_Ecoutes").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Recap_Ecoutes").AutoFilter.Sort.SortFields.Add2 Key _
        :=Range("B1:B6"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Recap_Ecoutes").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub