Sub ExportPRouter()
Dim Mdp As String
If [C25] = "No" Then MsgBox "NO SOS"
If [C25] = "Yes" Then
Mdp = Application.InputBox("Insert the password")
If Mdp <> "***" Then MsgBox "Access Denied !", vbCritical: Exit Sub
End If
MsgBox "Continuation de la macro..."
End Sub