Bonjour Richard58
Si tu veux apprendre et évoluer il va falloir connaitre quelques rouages du VBA PRoject
1ère chose, il est bien de mettre : Option Explicit
en tout début de module, ce qui t'oblige à déclarer tes variables et t'évite les erreurs comme
NbHreD = Application.CountA(Sheets("Listes").Range("C1").EntireColumn)
Reservation.ComboBox4.Clear
ReDim ArrH(1 To NbHreDeb)
Ensuite,
Mon 2ème probléme est l'erreur au lancement de l'userform.
Quand tu cliques sur le bouton, une ligne est surlignée = celle qui pose problème
Dans cette ligne tu utilises une variable, il suffit de mettre ton curseur dessus pour savoir ce quelle contien
Et là, tu peux t'apercevoir quelle est égale à 0
Un tableau ne peut pas être redimensionné de 1 à 0
Donc, cela veut dire, que la ligne qui définit la valeur de ta variable est erronée
NbGymnases = Application.CountA(Range("A1").EntireColumn)
Dans cette ligne, tu n'identifies pas l'objet conteneur de ton range, donc il prend la feuille activée ou il n'y a rien
Donc il faut que tu mettes
Sheets("Listes")."
devant
Range("XX").EntireColumn
Regardes et corriges ton code
@+