pourquoi cela ne fonctionne t il pas quand F4 change de valeur ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then
If Target = 0 Then
Range("B5:C25").ClearContents
Range("F5:F25").ClearContents
Range("I3").Select
End If
End If
End Sub