Remplacer une string par une autre en VBA

Bonjour à tous et a toutes,

pour me faciliter le travail j'ai decidé de me mettre au VBA, j'ai commencé aujourd'hui et je suis bloqué sur une fonction de remplacement de chaine de caractere par d'autre
voici mon code:

Dim UneCellule As Range
'Selectionne la colonne BV
ActiveSheet.Columns("BV:BV").Select
Dim p As String
'Pour chaque cellule de la colonne
For Each UneCellule In Selection
'récupération de la valeur
p = UneCellule.Value

'remplacement des chassis logique DSLAM par DSLAM
p = Replace(p, "chassis logique DSLAM", "DSLAM")
'remplacement des chassis logique DSLAM par DSLAM
p = Replace(p, " chassis logique DSLAM", "DSLAM")

'remplacement des equiment DSLAM par DSLAM
p = Replace(p, "equipment DSLAM", "DSLAM")
'remplacement des equiment DSLAM par DSLAM
p = Replace(p, " equipment DSLAM", "DSLAM")

'remplacement des carte dslam par DSLAM
p = Replace(p, "carte DSLAM", "DSLAM")
'remplacement des connexion vp dslam par DSLAM
p = Replace(p, " carte DSLAM", "DSLAM")

'remplacement des port dslam par DSLAM
p = Replace(p, "port DSLAM", "DSLAM")
'remplacement des port DSLAM par DSLAM
p = Replace(p, " port DSLAM", "DSLAM")

'remise de p dans la cellule
UneCellule.Value = p
Next

lorsque j'execute la macro il me dis: erreur de la compilation et me surligne ("BV:BV")
pourquoi??