Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.[A4:G4], Target) Is Nothing Then Exit Sub
Feuil2.CheckBox1.Value = WorksheetFunction.CountIf(Me.[A4:G4], "Lion") > 0
Feuil2.CheckBox2.Value = WorksheetFunction.CountIf(Me.[A4:G4], "Zebre") > 0
Feuil2.CheckBox3.Value = WorksheetFunction.CountIf(Me.[A4:G4], "Girafe") > 0
End Sub