Private Sub CommandButtonType_Click()
If Feuil1.TextBoxTypeBis.Text <> "" Then
Dim LookNum As Range
For Each LookNum In Feuil1.Range("D2:D65536")
If LookNum = Feuil1.TextBoxTypeBis.Text Then
u = Selection.Address
MsgBox (u)
End If
Next LookNum
End If
End Sub