dim total as single, x as long total = 0 for x = 1 to msflexgrille.count -1 ' si pas d'entête de colonne mettre 0 à la place du 1 msflexgrille.col = 0 ' mets ton numéro de colonne ( attention la première colonne est la colonne 0) msflexgrille.row = x if msflexgrille.text = "" then exit for ' si cellule vide on sort total = total + cSng(msflexgrille.text) next x