Séparation de cellule en deux

Bonjour à toutes et tous, (config Excel 2000)
j'utilise actuellement ces deux macros (et d'autres du même type) associées
à des boutons pour remplir les cellules d'un tableau ( elles ont été
construite sur ce forum il y a quelques années).

----------------------------
Sub matinca()
'
ActiveSheet.Unprotect password:="x" 'déprotège la feuille durant
l'opération
With ActiveCell
.Value = "CA/"
.Interior.ColorIndex = 4
ActiveCell.Offset(0, 1).Select
End With
ActiveSheet.Protect password:="x" ' protège la feuille après l'opération.
End Sub
----------------------------
Sub aprèsmidica()
'
ActiveSheet.Unprotect password:="x" 'déprotège la feuille durant
l'opération
With ActiveCell
.Value = "/CA"
.Interior.ColorIndex = 4
ActiveCell.Offset(0, 1).Select
End With
ActiveSheet.Protect password:="x" ' protège la feuille après l'opération.
End Sub
---------------------------------

Cela marche bien mais à l'inconvénient de remplir la cellule entière. Serait
il possible par exemple qu'en utilisant Value="CA/" que le coloriage vert
et "CA/" ne s'inscrive que sur la moitié supérieure de la cellule ou le
triangle de gauche si on la sépare par une diagonale et inversement bien sur
si "/CA"?

Un peu plus tordu maintenant, c'est à dire que nous avons rempli la moitié
d'une cellule avec "CA/" mais je voudrais avoir l'autre partie avec "RC/".

Merci pour votre aide
Philippe M

----------------------------
Sub matintrc()
'
ActiveSheet.Unprotect password:="x" 'déprotège la feuille durant
l'opération
With ActiveCell
.Value = "RC/"
.Interior.ColorIndex = 4
ActiveCell.Offset(0, 1).Select
End With
ActiveSheet.Protect password:="x" ' protège la feuille après l'opération.
End Sub