Dim Plage As Range
Dim derLig as Long
Dim valCell as Double ' ne sachant pas les valeurs affichées
' Dernière ligne en colonne C
derLig = Range("C" & Cells.Rows.Count).End(xlUp).Row
' Définition de la plage de cellules
Set Plage = Range("C2:C" & derLig).SpecialCells(xlCellTypeVisible)
valCell = Application.WorksheetFunction.Sum(Plage)