Re,
Je n'ai pas testé mais essaie comme ceci :
Sub toto()
For Each c In Range('a1:a' & Range('a65536').End(xlup).row)
If left (ucase(c.value),1) = 'B' Then
c.offset(0,1)=(right(c.value,1)*1)+1
Else
c.offset(0,1)=right(c.value,1)*1
End If
Next c
End Sub
Abel.