Sub NumAVS()
Dim AVS As String, HF As String
Dim Naiss As Date
Dim Annee As Byte, Mois As Byte, Jour As Byte
AVS = Range('A1').Value
HF = IIf(Val(Mid(AVS, 8, 1)) < 5, 'Homme', 'Femme')
Annee = Val(Mid(AVS, 5, 2))
Mois = Choose(Val(Mid(AVS, 8, 1)), 1, 4, 7, 10, 1, 4, 7, 10) + Val(Mid(AVS, 9, 2)) \ 31
Jour = Val(Mid(AVS, 9, 2)) Mod 31
Naiss = DateSerial(Annee, Mois, Jour)
MsgBox HF & ' né(e) le ' & Format(Naiss, 'dd/mm/yyyy')
End Sub