With Feuil2.Range("a2:b65536")
Set cel1 = .Find(Me.Label426.Caption, , xlValues, xlWhole)
If Not cel1 Is Nothing Then
TextBox7 = cel1.Offset(0, 1)
End If
Set cel2 = .Find(Me.Label427.Caption, , xlValues, xlWhole)
If Not cel2 Is Nothing Then
TextBox8 = cel2.Offset(0, 1)
End If
Set cel3 = .Find(Me.Label428.Caption, , xlValues, xlWhole)
If Not cel3 Is Nothing Then
TextBox9 = cel3.Offset(0, 1)
End If
End With