CALCUL CLÉ INSEE (N° SÉCURITÉ SOCIALE)

Function Clé_Insee(Insee As String) As String

Dim Insee_Compacté As String

Insee_Compacté = NoSpaceInString(Insee)
Clé_Insee = 97 - (((Left([Insee_Compacté], 9) Mod 97) & (Right([Insee_Compacté], 4))) Mod 97)

End Function

Function Controle_Clé_Insee(Insee As String, Clé_Reçue As String) As Boolean

Controle_Clé_Insee = (Clé_Reçue = Clé_Insee(Insee))

If Not Controle_Clé_Insee Then
   MsgBox "Clé Insee erronée", vbCritical, "Erreur"

End If

End Function

Function NoSpaceInString(Chaine As String) As String

Dim i As Integer

For i = 1 To Len(Chaine)
   If Mid$(Chaine, i, 1) <> " " Then
      NoSpaceInString = NoSpaceInString & Mid$(Chaine, i, 1)
   End If
Next i

End Function