Réponse acceptée !
Quelque chose un peu comme ça ?
Dim total As Single
For i = 0 To MSFlexGrid1.Cols - 1 ' pour chaque colonne...
total = 0
For j = 0 To MSFlexGrid1.Rows - 2 ' pour chaque ligne...
total = total + Val(MSFlexGrid1.TextMatrix(j, i))
Next j
MSFlexGrid1.TextMatrix(j, i) = total
Next i