Msgbox d'erreur si la valeur cherchée n'existe pas

Bonsoir le forum

j'aimerai ajouter un message msgbox d'erreur si la valeur cherchée n'existe pas .

Je voudrai dire si la valeur entranta par lutilsateur n'exite pas afficher Msbox erreur.

Voila le code:

Sub Rectangleàcoinsarrondis13_Cliquer()
 Dim i As Long, k As Long
For i = 1 To iLRS
iLRS = WsS.Cells(Rows.Count, 1).End(xlUp).Row
    Next
    Application.ScreenUpdating = False
    Range("A13:P80").Clear
    With Sheets("Liste")
    If .AutoFilterMode = True Then .AutoFilterMode = False
    NbLg = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("A2:P" & NbLg).AutoFilter field:=11, Criteria1:=Range("X13")
    If Application.Subtotal(103, .Columns("K")) > 1 Then
    .Range("A3:O" & NbLg).SpecialCells(xlCellTypeVisible).Copy Range("B13")
     End If
    If .AutoFilterMode = True Then .AutoFilterMode = False
   Dim Num As Integer, Cellule As Range
    With Sheets("BDC")
      k = 1
       For i = 6 To .Range("B" & .Rows.Count).End(xlUp).Row
       If IsNumeric(.Range("A" & i)) And .Range("B" & i) <> "" Then
       .Range("A" & i) = k
        k = k + 1
        End If
        Next i
        End With
      End With
     For Each Cellule In Range("A13:P40")
     If Cellule <> "" Then Cellule.Borders.Weight = xlThin
     Next

End Sub

Je vous remercie grandement d'avance!

« Bien cordialement. »

Bonjour

Sans fichier

Modifies la macro

    '
    '
    '
    .Range("A2:P" & NbLg).AutoFilter field:=11, Criteria1:=Range("X13")
    If Application.Subtotal(103, .Columns("K")) > 1 Then
      .Range("A3:O" & NbLg).SpecialCells(xlCellTypeVisible).Copy Range("B13")
    Else
      MsgBox "La valeur " & Range("X13") & " n'existe pas"
    End If
    If .AutoFilterMode = True Then .AutoFilterMode = False
    '
    '
    '

Bonsoir à tous et toutes

Bonsoir Banzai64

pour expert comme vous sans fichier exemple

juste posé, Ça marche tres bien

Merci beaucoup!

Cordialement