Salut,
En fait c'est la constante Pl qu'il faut changer
par B9:AE9. Modifies aussi cette portion de code
With Sheets(Month(C))
With .Range(Pl)
Set Plage = .Resize(.Cells(1, 1).End(xlDown).Row - Entete, .Columns.Count)
End With
End With
Le +1 il faudrait effectivement le changer si tu veux garder les grades par +2 mais aussi dans la fonction recupjour pour les noms prénoms mettre
Temp(1, I) = .Range(Plage.Address).Cells(C.Row - Entete, 2) 'nom prénom
Pour ce qui est de l'userform, bien entendu on pourrait en faire mais je trouve que ce tu as mis en place est déjà trés bien, si tu changes la taille d'affichage tu feras apparaître ton planning en entier.
Mais je reste ouvert, par contre tu pourrais commencer par en construire un (il y a de nombreux exemples sur xld).
Enfin si tu rencontres d'autres soucis courrielles-moi ton fichier.
A+++