bonjour aider moi a corriger cette erreur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub BtnRechercher_Click()
 
Dim Lign As Long
If TextSearch = "" Then Exit Sub
With Sheets("BDD")
                                     Lign = .Columns(2).Cells.Find(TextSearch).Row
 
Me.TextChambre = Cells(Lign, 1)
Me.TextNom = Cells(Lign, 2)
Me.TextPrenom = Cells(Lign, 3)
Me.TextMatricule = Cells(Lign, 4)
Me.TextFonction = Cells(Lign, 5)
Me.TextStructure = Cells(Lign, 6)
Me.TextDsejour = Cells(Lign, 7)
Me.TextFsejour = Cells(Lign, 8)
Me.CboStatut = Cells(Lign, 9)
 
End With
 
End Sub

merci
Gestion Hébergement.xlsm