Format code postal

Sub CodePostal()
Dim code$
1 code = UCase(InputBox("Entrer le code postal. Ex: H1N 2R3", "New", code))
If code = "" Then Exit Sub
If ErreurCodePostal(code) Then MsgBox "Mauvais format": GoTo 1
'suite du code
End Sub

Function ErreurCodePostal(code$) As Boolean
If Len(code) <> 7 Then ErreurCodePostal = True: Exit Function
Dim exclu$, exclu1$, i As Byte, t$, a As Byte
exclu = "DFIOQU"
exclu1 = "WZ" 'pour le 1er caractère
For i = 1 To 7
  t = Mid(code, i, 1): a = Asc(t)
  Select Case i
    Case 1
      If a < 65 Or a > 90 Or InStr(exclu & exclu1, t) Then _
        ErreurCodePostal = True: Exit Function
    Case 2, 5, 7
      If Not t Like "#" Then ErreurCodePostal = True: Exit Function
    Case 3, 6
      If a < 65 Or a > 90 Or InStr(exclu, t) Then _
        ErreurCodePostal = True: Exit Function
    Case 4: If t <> " " Then ErreurCodePostal = True: Exit Function
  End Select
Next
End Function

=(LIGNE()>1)*ErreurCodePostal(H1)

=(ROW()>1)*ErreurCodePostal(H1)

=ET(LIGNE()>1;H1<>"";ErreurCodePostal(H1))

=AND(ROW()>1,H1<>"",ErreurCodePostal(H1))

Option Compare Text 'pour ignorer la casse

Function ErreurCodePostal(code$) As Boolean
If Len(code) <> 7 Then ErreurCodePostal = True: Exit Function
Dim exclu$, exclu1$, i As Byte, t$
exclu = "DFIOQU"
exclu1 = "WZ" 'pour le 1er caractère
For i = 1 To 7
  t = Mid(code, i, 1)
  Select Case i
    Case 1
      If t < "A" Or t > "Z" Or InStr(exclu & exclu1, t) Then _
        ErreurCodePostal = True: Exit Function
    Case 2, 5, 7
      If Not t Like "#" Then ErreurCodePostal = True: Exit Function
    Case 3, 6
      If t < "A" Or t > "Z" Or InStr(exclu, t) Then _
        ErreurCodePostal = True: Exit Function
    Case 4: If t <> " " Then ErreurCodePostal = True: Exit Function
  End Select
Next
End Function