Aide sur USERFORM et VBA

Bonjour à tous,

J'ai deux petits soucis, que je n'arrive pas à résoudre et qui me bloque,

1) Sur un userform (ajout d'un client), j'ai le bouton sauvegardé qui marche sauf que je voudrais rajouter une phrase dans un msgbox au moment ou le client clique dessus "Merci de passer à l'étape 2 pour finir l'enregistrement"

Voici mon code : (je ne c'est pas ou mettre mon msgbox sans que l'autre msgbox apparaisse aussi "MsgBox ("Le code client est déjà existant / Veuillez le saisir à nouveau"))

Private Sub CommandButton1_Click()
'VALIDER L'AJOUT
Dim ligne As Integer
Dim doublon As Boolean
Dim plage As String
doublon = False
ligne = 2

If Sheets("Fiche_Client").Cells(ligne, 1).Value = TextBox1.Value Then
doublon = True
End If
'VALIDER SOUS CONDITIONS QUE TOUTES LES PARTIES SOIENT CORRECTEMENT REMPLIES
If TextBox1.Value = "" Then
MsgBox ("Il manque le code client"), vbCritical
ElseIf ComboBox1.Value = "" Then
MsgBox ("Il manque l'etat civil"), vbCritical
ElseIf TextBox3.Value = "" Then
MsgBox ("Il manque le nom"), vbCritical
ElseIf TextBox4.Value = "" Then
MsgBox ("Il manque le prénom"), vbCritical
ElseIf TextBox5.Value = "" Then
MsgBox ("Il manque l'adresse"), vbCritical
ElseIf TextBox6.Value = "" Then
MsgBox ("Il manque le code postal"), vbCritical

ElseIf TextBox7.Value = "" Then
MsgBox ("Il manque la ville"), vbCritical

ElseIf TextBox8.Value = "" Then
MsgBox ("Il manque le téléphone"), vbCritical

ElseIf TextBox9.Value = "" Then
MsgBox ("Il manque le mail"), vbCritical

ElseIf TextBox10.Value = "" Then
MsgBox ("Il manque la date de naissance"), vbCritical
Else

'SI TOUT EST OK ALORS L'AJOUT PEUT ETRE VALIDER

'BOUCLE POUR AJOUTER LES CLIENTS
While Sheets("Fiche_Client").Cells(ligne, 1) <> ""
ligne = ligne + 1
Wend

If doublon = False Then
Sheets("Fiche_Client").Cells(ligne, 1).Value = TextBox1.Value
Sheets("Fiche_Client").Cells(ligne, 2).Value = ComboBox1.Value
Sheets("Fiche_Client").Cells(ligne, 3).Value = TextBox3.Value
Sheets("Fiche_Client").Cells(ligne, 4).Value = TextBox4.Value
Sheets("Fiche_Client").Cells(ligne, 5).Value = TextBox5.Value
Sheets("Fiche_Client").Cells(ligne, 6).Value = TextBox6.Value
Sheets("Fiche_Client").Cells(ligne, 7).Value = TextBox7.Value
Sheets("Fiche_Client").Cells(ligne, 8).Value = TextBox8.Value
Sheets("Fiche_Client").Cells(ligne, 9).Value = TextBox9.Value
Sheets("Fiche_Client").Cells(ligne, 10).Value = TextBox10.Value
Sheets("Fiche_Client").Cells(ligne, 11).Value = TextBox11.Value

plage = "A1:K1" & Trim(Str(ligne))

Range("A2:K96").Select
ActiveWorkbook.Worksheets("Fiche_Client").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Fiche_Client").Sort.SortFields.Add Key:=Range("A2" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Fiche_Client").Sort
.SetRange Range("A2:K96")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("O18").Select

'Réinitialisation des données
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
'message de confirmation de l'ajout
Else
MsgBox ("Le code client est déjà existant / Veuillez le saisir à nouveau")

End If
End If
End Sub


2) Et mon deuxième problème est que je voudrais que les textbox d'un bon de livraison qui sont remplies automatiquement par le choix dans le combox qui récupère sur une feuille excel : qu'il soient en format euros (€)

Merci d'avance,