Dim x As Range
With Sheets("Boites")
Set x = .Range("B2:U97").Find("Vide", .Range("U97"), xlValues, , 2, 1, 0)
If Not x Is Nothing Then
MsgBox x.Address
UserForm1.TextPosition.Value = .Cells(x.Row, 1)
UserForm1.TextBoite.Value = .Cells(1, x.Column)
End if
End with