XL 2010 Comment associer 2 actions et une addition de critères?

Bonjour
Le code de mon exemple empêche de mettre plus de 9 CA dans les colonnes des jours sur les plages C6:C175.

Public Flag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([C6:M175], Target) Is Nothing Then Exit Sub
If Application.CountIf(Intersect([6:175], Target.EntireColumn), "CA") > 9 Then
MsgBox "Le nombre maximal de CA est déjà atteint !", vbCritical, "Saisie CA"
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True: End If
End Sub


Lors de la tentative d'un copier coller d'un 10ème CA orange, le CA est supprimé grâce à ClearContents mais je voudrais associer ClearFormats pour enlever la mise en forme aussi. Comment dois-je faire?

De plus je souhaiterais que le message "Le nombre maximal de CA est déjà atteint!" apparaisse quand le nombre de CA + le nombre de CAJ est supérieur à 9 ou le nombre de CA + le nombre de CAN >9
Comment dois-je faire pour incorporer NB CA + NB CAJ >9 ou NB CA + NB CAN>9?

Merci par avance.

Emmanuel