demarrer l'execution d'une macro

bonjour a tous

voila mon pb est de démarrer cette macro ci-dessous lors du changement d'une valeur dans la colonne "P"
seulement j'ai deja une autre macro qui demarre avec un woorsheet_change donc je ne peux pas intituler ma nouvelle de la meme maniere alors je voudrais savoir comment faire en sachant que dans la mesure du possible il ne faut pas de boutton il faudrait un demarrage automatique comme ca c plus simple pour les utilisateurs

d'avance merci

Dim cptr As Byte
Dim papier As Variant
Dim info As Variant


papier = Array(1, 5, 6, 7, 8, 10, 21) 'numéros "papiers"
info = Array(3, 4, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19) 'numéros "informatique"

If ActiveCell = "" Then Exit Sub

If ActiveCell = 2 Or ActiveCell = 19 Then 'nombres interdits
MsgBox "ces N° d'APP n'existent pas"
Exit Sub
End If

cptr = 1
Do While cptr <= 7 ' nombre d'eléments du tableau "papiers"
If ActiveCell = papier(cptr) Then
MsgBox "cet APP n'est pas sur labguard vérifier, valider et conserver la courbe papier"
Exit Sub
End If
cptr = cptr + 1
Loop

cptr = 1
Do While cptr <= 12
If ActiveCell = info(cptr) Then
MsgBox "cet APP est connecté sur le labguard mettre la courbe au format informatique"
Exit Sub
End If
cptr = cptr + 1
Loop
MsgBox " valeurs non classée"


End Sub