re,
avec cette cellule O4 "cours" vide et vous poussez le bouton, toutes les cellules qui correspondent aux "X" seront vides !
PS il faut ajouter ces 2 lignes avec les "*" dans la macro "Sub Modif_Horaires"
sh.Range("B2").Copy 'copier la cellule B2 *************************************************
sh.Range("A1").CurrentRegion.Offset(1, 1).PasteSpecial xlPasteValidation 'coller validation **
Next
sh.Range("B2").Copy 'copier la cellule B2
sh.Range("A1").CurrentRegion.Offset(1, 1).PasteSpecial xlFormats 'coller ses CFs vers le reste
sh.Range("B2").Copy 'copier la cellule B2 **********************************************************
sh.Range("A1").CurrentRegion.Offset(1, 1).PasteSpecial xlPasteValidation 'coller validation ****************************
If i = 1 Then c.EntireColumn.AutoFit
sh.UsedRange.Borders.LineStyle = xlNone 'supprimer les anciennes bordures
sh.Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous 'nouvelles bordures
Next
End Sub
Eventuellement, je dois écrire encore une macro avec un boucle pour faire ce truc pour les feuilles existantes des mois. Autrement, les nouvelles cellules n'auront pas une validation.