Private Sub Text5_Change()
Set f = Sheets("data")
derligne = f.[A65000].End(xlUp).Row
'la variable temp reçoit la partie gauche du Text5 sur une longueur à la position du curseur !
pos = Me.Text5.SelStart
temp = Left(Me.Text5.Text, pos)
If derligne > 1 Then
Set o = f.[F:F].Find(what:=temp & "*", LookAt:=xlWhole)
If Not o Is Nothing Then
Me.Text5 = o.Value
End If
End If
Me.Text5.SelStart = pos
Me.Text5.SelText = Mid(Me.Text5.Text, pos)
End Sub