XL 2013 Remplacer erreur message compilation par msgbox

Sub macroerreur()
On Error GoTo GestErr 'gestion des erreurs (en cas dérreur va à l'étiquette "GestErr"

'ton code ici
Range(dqzdqsds).Select 'ligne générant une erreur

Exit Sub 'fin de la procédure

GestErr: 'étiquette
Err.Clear 'supprime l'erreur
MsgBox "le programme a générée l'erreur : " & Err.Number & "! " & Err.Description & "." 'message
End Sub

Sub Macro4()
Dim MaVal, message As String, message2 As String
message = Range("M10").Value
message2 = Range("M11").Value
MaVal = Sheets("Simulation").Range("N17").Value
  SolverOk SetCell:="$D$19", MaxMinVal:=3, ValueOf:=MaVal, ByChange:="$D$11,$D$9" _
  , Engine:=1, EngineDesc:="GRG Nonlinear"
  SolverSolve UserFinish:=True
 
If Range("M10") <> "" Then
MsgBox message, vbExclamation
End If
If Range("M11") <> "" Then
MsgBox message2, vbExclamation
End If
End Sub

Sub Macro4()
On Error GoTo GestErr
Dim MaVal, message As String, message2 As String
message = Range("M10").Value
message2 = Range("M11").Value
MaVal = Sheets("Simulation").Range("N17").Value
  SolverOk SetCell:="$D$19", MaxMinVal:=3, ValueOf:=MaVal, ByChange:="$D$11,$D$9" _
  , Engine:=1, EngineDesc:="GRG Nonlinear"
  SolverSolve.Select UserFinish:=True
  
If Range("M10") <> "" Then
MsgBox message, vbExclamation
End If
If Range("M11") <> "" Then
MsgBox message2, vbExclamation
End If
Exit Sub 'fin de la procédure

GestErr:  'étiquette
Err.Clear 'supprime l'erreur
MsgBox "le programme a générée l'erreur : " & Err.Number & "! " & Err.Description & "." 'message
End Sub