Sub valideImage()
NP = ProfilNom & " " & ProfilPrenom
Dim NomImage As String, Reponse
If NP = "" Then Exit Sub
NomImage = ThisWorkbook.Path & "\Diplome\Identite\" & ProfilNom & " " & ProfilPrenom & ".jpg"
If Dir(NomImage) <> "" Then
Reponse = MsgBox(NP & ".jpg" & " existe déjà. L'écraser ?", _
vbYesNo + vbCritical, "Sauvegarde")
If Reponse = vbNo Then Exit Sub
End If
SavePicture ProfilIdentite.Picture, NomImage
Me.Repaint
End Sub