consommation gasoil EXCEL

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plg As Range
If Target.Row <> 2 Then Exit Sub
If Intersect(Me.[F:L], Target) Is Nothing Then Exit Sub
Set Plg = Me.[F65000].End(xlUp)
Set Plg = Me.Range(Me.[F3:L3], Plg)
Plg.Sort Key1:=Target, Order1:=xlAscending, Header:=xlNo, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
   DataOption1:=xlSortNormal
End Sub

If Me.FilterMode Then Me.ShowAllData

Option Explicit
Private CeNEstPasFiltré As Boolean, TFlt(), PlgFlt As Range

Sub Défiltrer(ByVal F As Worksheet)
Dim N As Long
CeNEstPasFiltré = Not F.FilterMode
If CeNEstPasFiltré Then Exit Sub
With F.AutoFilter
   Set PlgFlt = .Range
   With .Filters
      ReDim TFlt(1 To .Count, 1 To 3)
      For N = 1 To .Count: With .Item(N)
            If .On Then
               TFlt(N, 1) = .Criteria1
               If .Operator Then TFlt(N, 2) = .Operator: TFlt(N, 3) = .Criteria2
               End If: End With: Next N: End With: End With
F.AutoFilterMode = False
End Sub

Sub Refiltrer(ByVal F As Worksheet)
Dim N As Long
If CeNEstPasFiltré Then Exit Sub
Set PlgFlt = Intersect(PlgFlt.Resize(50000), F.UsedRange)
For N = 1 To UBound(TFlt(), 1)
   If Not IsEmpty(TFlt(N, 1)) Then
      If TFlt(N, 2) Then
         PlgFlt.AutoFilter Field:=N, Criteria1:=TFlt(N, 1), Operator:=TFlt(N, 2), Criteria2:=TFlt(N, 3)
      Else
         PlgFlt.AutoFilter Field:=N, Criteria1:=TFlt(N, 1): End If: End If: Next N
End Sub

Rem. —— Épilogue
Défiltrer Me
Me.[2:65000].ClearContents
Me.[B2].Resize(Ls, CMax).Value = Ts
Refiltrer Me
End Sub