Bonjour,
je n'avais pas vu cette question perdue au milieu de 2 autres réponses dans ce long post.
Pas vu non plus de confirmation que tu aies lu les explications données mardi à 16:58, rappelée mercredi à 21:56...
Private Sub test_Click()
'Function validerH(salle As String, dat, hDeb, durée) As Boolean
Tu remplaces une fonction à 4 paramètres par un simple Sub et tu me dis que ça ne marche pas ??
Je confirme, c'est une évidence si tu modifies mal. Mais c'est entièrement de ta faute comme tu aurais dû t'en douter.
eric