tu peux aussi tout bêtement compter les valeurs dans la colonne désirée. Par exemple :
Sub Essai()
Dim SngNbVal As Single
Dim IntCol As Integer
IntCol = InputBox("Taper le numéro de la colonne dont vous voulez compter les valeurs:")
SngNbVal = Application.CountA(Columns(IntCol))
If SngNbVal = 0 Then
MsgBox "La colonne " & IntCol & " est vide."
Else
MsgBox "La colonne " & IntCol & " contient " & SngNbVal & " valeurs."
End If
End Sub