Salut Mariemn
tu peux écrire quelque chose comme cela :
Dim Ligne as long
Dim Col as long
Dim Vide as boolean
vide =true
With grille
for ligne = 1 to .rows-1
for col = 0 to .cols -1
if .textmatrix(ligne, col) <> vbnullstring then
vide=false
exit for
next col
if not vide then
exit for
next ligne
end with
Driss
Driss HANIB
