Affiche un message d'Erreur

Salut tout le monde

J’ai un formulaire qui marche très bien mais je veux ajouter un message qui va dire :

« Le matricule saisi et incorrecte ou ne pas présent…… » Ce message s’affiche t’an que le matricule ni pas présent dans la Liste récapitulatif.

Merci

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+

merci bien parfait ça marche bonne soiré