XL 2016 macro tarifs degressifs plusieurs catégories

bonjour,
Je possède une macro ( écrite par un membre du forum, que je remercie !, et que j'ai adaptée à mon code)
Je voudrais faire évoluer ce code qui n'est plus adapté à mes besoins du moment, et c'est assez urgent !
Alors j'explique mon besoin :
j'ai 4 catégories de cours :
un cours "éveil" unique au prix unique de 160 euros

une catégorie de cours adultes au tarif dégressif suivant :
* un cours adulte : 210 euros
* deux cours adulte : 380 euros
* trois cours adulte : 530 euros
* 4 cours adulte et plus : 660 euros

une catégorie de cours adultes au tarif dégressif suivan * un cours enfant : 190 euros
* deux cours enfants : 335 euros
* trois cours enfants : 460 euros
* 4 cours enfants et plus : 565 euros

une catégorie de cours mensuels au tarif dégressif suivant :
* un cours mensuel : 180 euros
* deux cours mensuel : 330 euros

les intitulés de cours de ces 4 catégories sont listés dans 4 colonnes différentes d'une feuille " Critères"
je possède un Userform "règlement_facturation" qui reprend l'intitulé de tous les cours en listbox déroulante
je voudrais que la macro puisse lorsque je choisis un cours dans ces listesbox distinguer le prix à appliquer en textbox que j'ai mis a côté, et en fonction du nombre de cours choisis.
Ex : un cours adulte = 210 . Je prends un second cours adulte , doit afficher 380....etc...
si je prends un cours adulte 200, plus un cours éveil à 160, doit afficher 360
si je prends deux cours adulte soit 380, et deux cours enfants à 335 , doit afficher 380 + 335 , soit 715 euros.
même principe pour toutes les categories de cours, sauf l'Eveil" qui est au tarif non dégressif de 160 le cours, donc si deux cours éveil = 360 euros...etc...


je mets la macro initiale qui fonctionnait très bien pour les cours adultes en dégressif et les cours mensuels en non dégressif.

[code\]
Private Sub PrixCours()
Dim i As Integer, M As Boolean, NM As Integer, NH As Integer, PH, PM As Integer, j As Integer
PM = 180 'prix cours mensuel
PH = Array(0, 210, 380, 530, 660) 'prix des cours adulte hebdo
With Worksheets("Critères")
For i = 6 To 13 ' mes listbox T6 à T13 qui me permettent d'ajouter des cours à facturer dans mon userform
M = False
If Controls("T" & i).ListIndex <> -1 Then
For j = 3 To .Range("H" & Rows.Count).End(xlUp).Row
If .Range("H" & j) = Controls("T" & i) Then
M = True
Exit For
End If
Next
If M Then 'si cours mensuel
NM = NM + 1
Else 'cours hebdo
NH = NH + 1
End If
End If
Next
End With
If NH > 4 Then NH = 4
T28 = PH(NH) ' text box qui affiche le prix global des cours adulte
T29 = NM * PM
End Sub

[CODE\]

l'idée est de modifier la macro comme suit :
* rajouter / modifier en :
PA =

Array(0, 210, 380, 530, 660) 'prix des cours adulte hebdo​

PE = array

(0,190, 435, 460, 565) 'prix des cours enfants hebdo
PCM = array(0, 180, 330) ' prix cours mensuel
PEV = prix éveil fixe * nombre de cours ​

j'aurai donc 4 textbox en face
T28 pour afficher le résultat (somme en euros ) des cours adulte
T29 pour afficher le résultat des cours enfant
T30 pour afficher le résultat des cours mensuels
T31 pour afficher la somme des cours "Eveil"

Quelqu'un peut-il m'aider a mettre en forme cette macro s'il vous plaît , c'est assez urgent ! " !

Un grand merci !!!