Salut,
1) En supposant que le nombre de valeurs dans ta colonne (disons la A) peut varier :
Sub Calculsomme()
DerLigne = Range("A1" ).End(xlDown).Row
somme = 0
For Each Cell In Range("A1:A" & DerLigne)
somme = somme + IIf(IsNumeric(Cell.Value), Cell.Value,0)
Next
MsgBox somme
End Sub
2) C'est un peu trop imprécis pour donner un avis tranché... Ce que je peux dire c'est qu'avec la commande "MsgBox" t'arrives à afficher à peu près tout ce que tu veux.
Par exemple, pour afficher la valeur de la i-eme colonne de la 2e ligne : MsgBox Cells(2, i).Value
le Fnake