Problème fusion cellule

Sub Repos()
Dim p As Range
Set p = ActiveCell.Resize(, 4) 'la plage de 4 cellules
If p(1) = "CP" And Application.CountA(p) = 1 Then 'les 3 cellules à droite doivent être vides
  p.Interior.ColorIndex = xlNone 'au cas où les cellules ont déjà été colorées...
  p.Merge 'fusionne les 4 cellules
  p(1).Interior.ColorIndex = 4 'colore uniquement la 1ère cellule
  p.Select 'sélectionne la plage
  Calculate 'recalcule les formules
End If
End Sub

Sub Repos()
Dim p As Range
Set p = ActiveCell.Resize(, 4) 'la plage de 4 cellules
If Application.CountA(p) = 0 Then 'les [COLOR="red"]4[/COLOR] cellules doivent être vides
  p.Interior.ColorIndex = xlNone 'au cas où les cellules ont déjà été colorées...
  p.Merge 'fusionne les 4 cellules
  p(1).Interior.ColorIndex = 4 'colore uniquement la 1ère cellule
  p.Select 'sélectionne la plage
  [COLOR="Red"]p(1) = "CP"[/COLOR]
End If
End Sub