Private Sub CommandButton2_Click() 'bouton supprimer les plages horaires en cliquant sur le nom de l'enfant
Application.ScreenUpdating = False
'déclencher macro si cellule colonne A est active
With Sheets("planing semaine")
ActiveCell.FormulaR1C1 = ""
Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 26)).Select
Selection.FormulaR1C1 = ""
copie 'macro
Sheets("planing semaine").Select
Application.ScreenUpdating = True
End With
End Sub