If TypeCompte.Temporaire1.Caption = "PACK ARGENT" Then
TypeDeCompte = TypeCompte.Temporaire1.Caption
If TypeCompte.Temporaire1.Caption = "PACK RICHESSE" Then
TypeDeCompte = TypeCompte.Temporaire1.Caption
If TypeCompte.Temporaire1.Caption = "COMPTE ENFANT" Then
TypeDeCompte = TypeCompte.Temporaire1.Caption
If TypeCompte.Temporaire1.Caption = "COMPTE ELEVE" Then
TypeDeCompte = TypeCompte.Temporaire1.Caption
If TypeCompte.Temporaire1.Caption = "SND" Then
TypeDeCompte = TypeCompte.Temporaire1.Caption
End If
End If
End If
End If
End If
End Sub