Mettre des bordures dans une plage de cellule

Bonsoir,
Je voudrais mettre une bordure dans chaque cellules d'une plage. J'ai
écrit pour celà une boucle do while.
Malgré qu'il n'y ait pas d'incidents, rien ne se passe dans les
cellules.
Voici mon bout de code :

Do While Sheets("My B400").Cells(y2, 1).Value <> ""   ' la boucle s'arrete quand la cellule est vide
    Sheets("My B400").Range("A" & y2 & ":D" & y2).Select
    With Selection.Borders
    .LineStyle = xlContinuous
    End With
    y2 = y2 + 1
   Loop

Une ame charitable peut elle m'expliquer pourquoi rien ne se passe.

Merci infiniment

Salut,

j'ai testé et de mon coté pas de probleme... mais pour que cela marche comme ecrit dans ton code, il faut pas qu'une des cellules soit vide sinon tous s'arrete ! et si la premiere cellule est vide alors il ne ce passera rien.

A+