Double If - vba - Excel 2007

Bonjour,

Je n'arrive pas a comprendre pourquoi ce code ne marche pas, c'est juste une condition If dans une autre pour afficher une lettre ou un "Error" dans la 3eme colonne.

Par exemple si entre deux "a" (dans la premiere colonne) les cellules sont vide alors il faut mettre "a" a droite des numeros (qui sont dans la deuxieme colonne) sinon des "Error"; ou si un "c" est suivi apres un groupe de numeros (qui sont tjrs dans la deuxieme colonne) par un "d" (dans la premiere colonne) mettre "Error" (car deux lettres differentes qui se suivent); un peu comme ci-dessous:

a
1 a
2 a
3 a
a

b
1 b
2 b
3 b
4 b
5 b

c
1 Error
2 Error
d

e
1 Error
2 Error
3 Error
c 4 Error
5 Error
e


Bref le code me met que des "Error" dans la 3eme colonne a droite des numeros:

Private Sub CommandButton1_Click()

Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim s As Integer
Dim l As Integer
Dim e As Integer

s = 0
l = 0
e = -2

For i = 1 To 5

l = 0
s = e + 4
Cells(s, 2).Select
Do While Not (IsEmpty(ActiveCell))
l = l + 1
Selection.Offset(1, 0).Select
Loop
e = s + l - 1
Cells(s, 2).Select
Do While (IsEmpty(ActiveCell))
p = p + 1
Selection.Offset(1, 0).Select
Loop

If Cells(s - 1, 1) <> Cells(e + 1, 1) Then
For a = s To e
Cells(a, 3).Value = "Error"
Next a
Else
If p <> l Then
For b = s To e
Cells(b, 3).Value = "Error"
Next b
Else
For c = s To e
Cells(c, 3).Value = Cells(e + 1, 1).Value
Next c
End If
End If

Next i

End Sub

Un grand merci a tout ceux a qui vba est plutot aise et qui veulent bien m'aider :)
Bonne soiree!
Paul