VBA : recherche valeur par combobox ET masquer colonnes [Résolu/Fermé]

Sub rechercherEquipe()

Dim equipe As Variant
Dim recherche As Range
equipe = UserForm1.ComboBox1.Value
Set recherche = Range("B4:LX4").Find(equipe, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)
If recherche Is Nothing Then
MsgBox ("Equipe non trouvée (ou non renseignée).")
Else
MsgBox ("Equipe trouvé en colonne") & recherche.Column
End If


Unload UserForm1
End Sub

Sub rechercherEquipe()

Dim equipe As Variant
Dim recherche As Range
equipe = UserForm1.ComboBox1.Value

Set recherche = Range("B5:LX5").Find(equipe, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)

If recherche Is Nothing Then
MsgBox ("Equipe non trouvée (ou non renseignée).")
Else
recherche.Columns.Select
End If

Unload UserForm1
End Sub

Sub rechercherEquipe()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String

'********* à adapter ***********
'affectation de valeurs aux variables :
    'on cherche le mot "Trouve"
''REMPLACER''Valeur_Cherchee = "Trouve"
Valeur_Cherchee = UserForm1.ComboBox1.Value
    'dans la première colonne de la feuille active
''REMPLACER''Set PlageDeRecherche = ActiveSheet.Columns(1)
Set PlageDeRecherche = Sheets("Année").Range("B5:LX5")
'*******************************

'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
    'ici, traitement pour le cas où la valeur est trouvée
    AdresseTrouvee = Trouve.Address
End If
MsgBox AdresseTrouvee
'AdresseTrouvee.Columns.Select
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub

Sub rechercherEquipe()
'déclaration des variables :
Dim Trouve As Integer, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String

'¤¤¤¤¤¤¤¤¤¤¤¤¤¤ modif recherche multiples
Dim Tb()        'Adresse(s) de retour si trouvee(s)
Dim i As Integer

'affectation de valeurs aux variables :
Valeur_Cherchee = UserForm1.ComboBox1.Value
Set PlageDeRecherche = Sheets("Année").Range("B5:LX5")

'appelle de la fonction recherche multiples
Trouve = RechFind(Valeur_Cherchee, ThisWorkbook.Name, "Année", PlageDeRecherche.Address, Tb())
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve > 0 Then
    'ici, traitement pour le cas valeur(s) trouvée(s)
    For i = 0 To UBound(Tb)
'    AdresseTrouvee = AdresseTrouvee & "-" & Tb(i)
     AdresseTrouvee = AdresseTrouvee & Tb(i)
    Next i
GoTo 1: 'trouvée

Else
    'ici, traitement pour le cas où la valeur n'est pas trouvée
'    AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
GoTo 2:

End If
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

'MsgBox AdresseTrouvee

'trouvée
1:
'Columns(AdresseTrouvee).Hidden = True 'plante : affiche "$D$5$B$5"
'MsgBox AdresseTrouvee '>MARCHE
'nouvat = Replace(AdresseTrouvee, "$", "") ''>MARCHE
'MsgBox ("Trouvé dans ") & nouvat ''>MARCHE



Unload UserForm1
Exit Sub

'non trouvée
2:
MsgBox ("Equipe non trouvée ou non renseignée.")
Unload UserForm1
Exit Sub

'vidage des variables
Set PlageDeRecherche = Nothing
End Sub