Salut zving2,
Si j'ai bien compris, il suffit juste d'ajouter un Else et le message
Private Sub CbB_Ok_Click()
Dim LigF As Long
If Me.TextBox1 = "" Then Exit Sub
With Sheets("Liste récapitulatif")
On Error Resume Next
LigF = 0: LigF = .Range("B:B").Find(What:=Me.TextBox1).Row
If Err.Number = 0 Then
Me.TextBox2 = .Range("C" & LigF)
Me.TextBox3 = .Range("D" & LigF)
Me.TextBox4 = .Range("E" & LigF)
Else
MsgBox "Le matricule saisi est incorrecte ou n'est pas présent", vbInformation
End If
End With
End Sub
A+