Option Explicit
Sub HO_inter_4G()
Dim fin As Long
Dim fin1 As Long
Dim timerdebut As Double
If ThisWorkbook.Worksheets("FLUX_HO").FilterMode = True Then
ThisWorkbook.Worksheets("FLUX_HO").ShowAllData
End If
fin = Range("AL" & Rows.Count).End(xlUp).Row
fin1 = Range("Z" & Rows.Count).End(xlUp).Row
timerdebut = Timer
'
'supprimer le contenu
Range("A3").CurrentRegion.Offset(2).Resize(Range("A3").CurrentRegion.Rows.Count - 2).ClearContents
' Copy dans les données de la feuil3 et coller dans la feuille active
Sheets("Feuil3").Range("A2").CurrentRegion.Offset(1).Copy Range("A3")
' calcule des données pour la prise des formules
Range("U2:AL2").AutoFill Destination:=Range("U2:AL" & fin)
ActiveSheet.Calculate
' Supprimer la premiere ligne
Range("A2").CurrentRegion.Rows(2).Delete
'filtre par ordre du plus grand au plus petit
With ActiveWorkbook.Worksheets("FLUX_HO").ListObjects("Tableau2").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tableau2[[Inter eNB Handover attempts ]]"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' Filtre la valuer < à 80
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=25, Criteria1:= _
"<80", Operator:=xlAnd
MsgBox "Durée : " & (Timer - timerdebut) & " sec."
' Suppression de la dernière ligne
On Error Resume Next
Range("A2").CurrentRegion.Rows(Range("Z" & Rows.Count).End(xlUp).Row).Delete
End Sub