Liste déroulante en cascade sur VBA

Bonjour,

Je prépare un fichier de suivi de formations pour des agents. J'ai déjà créé/modifié un certain nombre de macros mais je bloque sur la suppression d'une formation.

Pour cette manip, j'aimerais qu'en cliquant sur le bouton "supprimer formation", une fenêtre s'ouvre avec 2 listes déroulantes : la 1ère servirait à choisir la catégorie de la formation, la seconde afficherait les différentes formations de la catégorie sélectionnées.

Les données des formations sont contenues dans la colonne A de ma feuille "Formations" dans l'ordre suivant :
CATEGORIE 1 (A4)
Formation 1 (A5)
Formation 2 (A6)
...
CATEGORIE 2 (A19)
Formation 1 (A20)
Formation 2 (A21)
...
CATEGORIE 2 (A33)
Formation 1 (A34)
Formation 2 (A35)
...

Evidemment, il n'y a pas le même nombre de formations dans chaque catégorie...

J'ai préparé un UserForm, j'ai réussi à ajouté les catégories en utilisant le code suivant :
Private Sub UserForm_Initialize()
ComboBox1.Clear
With Me.ComboBox1
.AddItem "Combustible"
.AddItem "Dechet"
.AddItem "Transport"
.AddItem "Manutention"
.AddItem "Securite_surete"
.AddItem "Surveillance"
End With
End Sub

Mon problème se complique ensuite. Après avoir renommé mes plages de formations (ex : A5:A18 se nomme Combustible), j'ai tenté ça :
Private Sub ComboBox1_Change()
Dim categorie As String
categorie = CaracSpec(ComboBox1.Value)
If NomDefini(categorie) Then
ComboBox2.List = Application.Transpose(Range(categorie))
End If
End Sub

Mais cela ne fonctionne pas, peu importe la catégorie choisie, la 2ème liste déroulante ne me propose que les formations du combustible.

Pouvez-vous m'aider s'il vous plait ?