bonjour
j ai cette ligne de code dans une macro
Sub bouton_01()
If Intersect(ActiveCell, Range("planning")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect (pwd)
ActiveCell = Sheets("Accueil").Range("B8").Value '
ActiveCell.Interior.Color = RGB(255, 255, 255)
ActiveCell.Font.Color =...