Sub test()
Dim Nb As Boolean, Nb1 As Boolean, Nb2 As Boolean
Nb = Application.WorksheetFunction.CountIfs(Range("C:C"), ComboBox2.Value > 1)
Nb1 = Application.WorksheetFunction.CountIfs(Range("F:F"), DTPicker1.Value > 1)
Nb2 = Application.WorksheetFunction.CountIfs(Range("n:n"), 'TexTbox4.Value > 1)
If Nb And Nb1 And Nb2 = True Then
MsgBox "toto"
Exit Sub
End If
End Sub