Dim Ligne As Long, Valeur As Variant
' "C" est la colonne recherchée. On pourrait mettre 3 en guise d'Index
Ligne = Cells(Rows.Count, "C").End(xlUp).Row
Valeur = Range("C" & Ligne) 'ou Cells(Ligne, 3)
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI