Combobox grisée

Private Sub ComboBox1_Click()
Dim OngletBassin As String
Dim NomduBassin As String
Dim PlageSource As Range
OngletBassin = ComboBox1.Value
With Sheets(OngletBassin)
    Set PlageSource = .Range(.Range("A5"), .Range("A1000").End(xlUp))
End With
        ComboBox2.ListFillRange = OngletBassin & "!" & PlageSource.Address(0, 0)
TextBox1.Value = ComboBox1.Value


End Sub

Private Sub ComboBox1_GotFocus()
Sheets(" ").ComboBox1.Clear
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""

Dim vFEuille As Worksheet

   For Each vFEuille In ActiveWorkbook.Sheets
    If Not vFEuille.Name = ActiveSheet.Name And Not vFEuille.Name = "Guide" And Not vFEuille.Name = "CarteBassinA" And Not vFEuille.Name = "CarteBassinB" And Not vFEuille.Name = "SaintongeCognacBDPAE" And Not vFEuille.Name = "SaintongeCognacBDPAEE" _
    And Not vFEuille.Name = "AngoulemeDPAE" And Not vFEuille.Name = "AngoulemeDPAEE" And Not vFEuille.Name = "ConfolensDPAE" And Not vFEuille.Name = "ConfolensDPAEE" And Not vFEuille.Name = "SaintongeCognacADPAE" And Not vFEuille.Name = "SaintongeCognacADPAEE" _
    And Not vFEuille.Name = "SaintongeMaritimeDPAE" _
    And Not vFEuille.Name = "SaintongeMaritimeDPAEE" _
    And Not vFEuille.Name = "LaRochelleDPAE" _
    And Not vFEuille.Name = "LaRochelleDPAEE" _
    And Not vFEuille.Name = "MontmorillonDPAE" _
    And Not vFEuille.Name = "MontmorillonDPAEE" _
    And Not vFEuille.Name = "PoitiersDPAE" _
    And Not vFEuille.Name = "PoitiersDPAEE" _
    And Not vFEuille.Name = "ChatelleraultDPAE" _
    And Not vFEuille.Name = "ChatelleraultDPAEE" _
    And Not vFEuille.Name = "BressuireDPAE" _
    And Not vFEuille.Name = "BressuireDPAEE" _
    And Not vFEuille.Name = "NiortDPAE" _
    And Not vFEuille.Name = "NiortDPAEE" _
    And Not vFEuille.Name = "ParthenayDPAE" _
    And Not vFEuille.Name = "ParthenayDPAEE" _
    And Not vFEuille.Name = "ThouarsDPAE" _
    And Not vFEuille.Name = "ThouarsDPAEE" _
    And Not vFEuille.Name = "ROMEMobilite" _
    And Not vFEuille.Name = "PagedeGarde" Then
            ComboBox1.AddItem vFEuille.Name
    End If

Next
End Sub