Sub DescriptionErreur()
NumErr = InputBox("Numéro de l'erreur dont vous voulez la description:")
If NumErr = "" Then Exit Sub
On Error Resume Next
Err.Clear
Err.Raise NumErr
If Err.Number <> 0 Then
Msg = "Description de l'erreur " & Err.Number & " :" _
& vbLf & vbLf & Err.Description
MsgBox Msg, vbOKOnly, "Erreur " & NumErr
End If
End Sub