Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim mi As Variant 'déclare la variable mi (MInimum)
Dim ma As Variant 'déclare la variable ma (MAximum)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définitla dernière ligne éditée dl de la colonne 1 (=A)
Set pl = .Range("A2:A" & dl) 'définit la plage pl
mi = Application.WorksheetFunction.Min(pl.SpecialCells(xlCellTypeVisible)) 'définit le minimum mi des cellules visibles de la plage pl
ma = Application.WorksheetFunction.Max(pl.SpecialCells(xlCellTypeVisible)) 'définit le maximum ma des cellules visibles de la plage pl
MsgBox "Min = " & mi & " / Max =" & ma 'message affichant le minimum mi et le maximum ma
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub