Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$5" Then Effacer
End Sub
Sub Effacer()
Application.ScreenUpdating = False
Sheets("Feuil1").Cells(1, 1).ClearContents
End Sub
Bonsoir, ce que je voudrais (...)