Bonjour,
proposition de modification
Private Sub BtnRecherche_Click()
' Valider
Dim nblg As String
Dim cel
Dim i As Integer
Me.TextBox1 = ""
If Trim(Me.txtrecherche) = "" Then
MsgBox "Veuillez saisir un nom"
Exit Sub
End If
Application.ScreenUpdating = False
Set cel = Sheets("JOURNALIER").Columns(1).Find(what:=Me.txtrecherche, LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
For i = 1 To 10
Me("textbox" & i) = cel.Offset(0, i + IIf(i = 2, 1, 0) + IIf(i > 2, 2, 0)) ' offset 1, 3 ,5,6,7,8,9,10,11,12 pour les textbox 1 à 10
' Selection.Offset(0, 1).Select
'Selection.Value = TextBox1
Next i
End If
End Sub