Bonsoir Patrick et Cathy et le forum
Patrick, utilise le code suivant dans ta feuille1
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E5").Value = "JANVIER" Then
Range("E9") = Range("E7").Value
Else
Range("E9").Value = ""
End If
End Sub
@Christophe@
Bonne soiré