Sub test_OK()
Dim Z$, Zone&
Z = "CHQ. N.4823227"
Zone = Split(Z, ".")(UBound(Split(Z, ".")))
N = Application.Match(Zone, Columns(1), 0)
If IsError(N) Then
MsgBox "Non trouvé!", vbCritical
Else
MsgBox (Cells(N, 1) & "| " & Cells(N, 2) & "| " & Cells(N, 3))
End If
End Sub