Dim F As Worksheet, R As Range, NbVC2P2&, NbVC2P4&, NbVC2P5&
Set F = ThisWorkbook.Sheets("recap")
Set R = F.Range("B7:B" & F.[B65000].End(xlUp).Row)
NbVC2P2 = WorksheetFunction.CountIf(R, "VC2-P2")
NbVC2P4 = WorksheetFunction.CountIf(R, "VC2-P4")
NbVC2P5 = WorksheetFunction.CountIf(R, "VC2-P5")
CheckBox1.Enabled = NbVC2P5 + NbVC2P2 > 0
TextBox1.Enabled = CheckBox1.Enabled
CheckBox2.Enabled = NbVC2P4 + NbVC2P2 > 0
TextBox2.Enabled = CheckBox2.Enabled