et si tu met ceci dans ta feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 2 Then
ligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
'MsgBox ligne
With Sheets("Feuil1")
For i = 2 To ligne
If (.Range("A" & i) = "janvier" Or .Range("a" & i) = "février") And .Range("b" & i) <> "janvier" Then
.Range("c" & i) = "oui"
Else
.Range("c" & i) = "non"
End If
Next i
End With
End If
End Sub
des que tu effectue une modification cela se fait automatiquement