Suppression d'une plage de cellule, plage définie selon For Lig

Bonjour à tous et à toutes,

Voila à une bonne journée que je suis bloqué, et je ne trouve pas de solution.

Tout d'abord, vous trouverez mon tableau en PJ, et le code ci-dessous (je sais qu'il est faux) :

Sub macro1()

With Worksheets("Conseiller Forme")
    For Lig = 11 To 1000
    If .Range("B" & Lig) = "" Then .Range("A:BO" & Lig).Selection.Delete Shift:=xlUp
    Next Lig
End With

End Sub

Ce que je veux faire :

Pour chaque ligne (11 to 1000) vide, de la colonne B, la supprimer. Mais je ne veux pas supprimer toute la ligne, seulement le sélection suivante B:BO, et la ligne selon ma boucle For Lig.

Infos au sujet du tableau lors de la fermeture :

MDP de fermeture : 100513

Votre Prénom : (peut importe sauf Rien)

Enregistré les modifications : Choisir Non (sinon cela envoie un rapport par mail)

Je vous remercie, en espérant qu'une solution éxiste....

Cordialement

seb

Tu as essayé:

Sub macro1()

With Worksheets("Conseiller Forme")
    For Lig = 11 To 1000
    If .Range("B" & Lig).Value = "" Then .Range("B" & Lig & ":BO" & Lig).Delete Shift:=xlUp
    Next Lig
End With

End Sub

?

Bonsoir le fil, bonsoir le forum,

Ou bien :

Sub macro1()
Dim Lig As Integer

With Worksheets("Conseiller Forme")
    For Lig = 11 To 1000
        If .Range("B" & Lig) = "" Then .Range(.Cells(Lig, "B"), .Cells(Lig, "BO")).Delete Shift:=xlUp
    Next Lig
End With
End Sub

Bonjour,

Cela fonctionne très bien pour le 1er cas, je n'ai pas éssayé le second.

Je vous remercie...