Bonjour Poupamac32 et bienvenue
Copiez le code suivant dans la feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C2")) Is Nothing Then
Range("B7:H28").ClearContents
End If
End Sub
Désolé BrunoM45- et bonsoir
Cdt
Papy Henri