Si vous souhaitez déterminer la valeur la plus élevée dans une zone de données filtrées, vous pouvez utiliser la fonction SubTotal, à laquelle vous donnez l’index de fonction 4 comme argument.

Sub Plusgrandevaleurdanszonefiltreedeterminer ()

Dim l As Long

  Sheets ("Feuil4"). Activate

  Range ("A1"). Select

  Application.DisplayStatusBar = True

  l = Application.WorksheetFunction.Subtotal _

  (4, Range (ActiveSheet.UsedRange.Address))

  Application.StatusBar = _

   "la plus grande valeur dans la zone filtrée est" & l

End Sub