Salut Michèle,
Alors il me semble que plusieurs chose ne vont pas dans ton code. Tout d'abord, concernant les declarations des variables, si tu mets Dim k, d, i As Integer, seul i est déclaré en Integer, k et d sont déclarés en Variant.
Ensuite, tu mets Set maplage = Range(Cells(i, 1), Cells(i, 10)) qui concerne donc la plage A1:A10, puisque i est initialiser à 1.Cependant, tu boucle sur la colonne A, or si celle-ci est vide, ta boucle ne se lance pas, et si elle contient des valeurs, alors ta conditions n'estpas vérifier, et la plage de cellule n'est donc pas supprimer.
Enfin dernière chose, tu déclares ta plage hors de ta boucle For i=1 To d, et donc, le i de ta plage n'est donc pas incrémenter, ce qui fait que tu boucles sur la colonne A, mais que ta plage est toujours A1:A10.
J'avais oublié un petit point, tu boucles également sur les feuilles, mais tu ne dis nul part qu'il faut en changer (Sheets(k).select).
Plusieurs possibilité sont possible pour faire ce que tu veux, notament je pense en passant par un For Each, donc si tu avais un petit fichier exemple, ce serai pas mal.
@+
Message édité par: porcinet82, à: 13/04/2006 12:32