suppr ligne sous condition

St tout le monde
j'ai besoin de créer une macro qui permet de supprimer des lignes sous quelques conditions.
exemlpe1:
A
p
5
S
Z
2
B
Exemple2
A
5
Z
B
Exemple3
A
6
S
B
alors mon but c'est de créer une macro qui me permet de supprimer toutes les lignes qui existent entre A et B sachant que je peux avoir 2, 3 , 10 , ......, 200 lignes entre A et B
Voilà ma macro mais malheureusement, ça marche pas

Sub suppr_ligne()

Dim i As Integer

Dim j As Integer

For i = 200 To 2 Step -1 'j'ai mis 200 parce que au maximum je peux avoir 200 lignes entre A et B'

If Cells(i, 1) = "B" Then

i = j

End If

Next i         

For i = j - 1 To 2 Step -1

Rows(i).Delete shift:=xlUp

Next i

End Sub

S'il y a quelqu'un qui a une idée, merci de m'aider