Private Sub TextBoxCP_KeyPress(ByVal keyAscii As MSForms.ReturnInteger)
If InStr("1234567890,AZ,-", Chr(keyAscii)) = 0 Then
keyAscii = 0: Beep
MsgBox "Maximum 6 caractères !" & vbCrLf & vbCrLf & vbCrLf & "LUXEMBOURG --> toujours précédé d'un L majuscule" & vbCrLf & "Exemple : L-xxxx" & vbCrLf & vbCrLf & "PAYS-BAS --> toujours suivit de 2 lettres" & vbCrLf & "Exemple : xxxxZZ" & vbCrLf & vbCrLf, vbOKOnly + vbInformation, "Code postal"
End If
End Sub