1. Remplacement de cboStatus par un Frame d’OptionButtons

• Supprimer d'abord cboStatus et son Label du formulaire — vous le remplacez, vous ne l’ajoutez pas en plus.
• Glisser un contrôle Frame sur le formulaire, puis glisser les trois OptionButtons à l’intérieur des limites du Frame — ce regroupement les rend mutuellement exclusifs en tant que groupe.
• Renommer chaque OptionButton individuellement dans la fenêtre Propriétés ; le Frame peut garder une Caption simple comme "Status" mais n’a pas besoin d’un nom adapté au code sauf si vous souhaitez le référencer directement.
• Lire la sélection signifie vérifier individuellement la propriété .Value de chaque OptionButton avec If...ElseIf — il n’existe pas de propriété unique indiquant "lequel du groupe est coché".
• Puisque cboStatus.Value n’existe plus, cmdSave_Click a besoin d’une variable status construite à partir des OptionButtons, à écrire dans newRow à la place.

2. Ajout de deux CheckBoxes indépendantes

• Elles sont placées directement sur le formulaire (pas dans le Frame) — des CheckBoxes hors d’un même conteneur ne s’affectent jamais mutuellement, peu importe le regroupement.
• Pour "confirmer lors des tests", il suffit d’en cocher une, puis l’autre, et de vérifier qu’aucune ne décoche la première.

3. Ajout et validation d’une ListBox

• La remplir de la même façon que cboCity — appels répétés à .AddItem dans UserForm_Initialize.
• ListIndex = -1 signifie qu’aucun élément n’a encore été sélectionné — c’est exactement la condition à vérifier avant d’autoriser l’enregistrement.
• Ce contrôle appartient au même bloc de validation que les autres champs obligatoires, en ajoutant à la même chaîne errors.

4. Défi MultiPage

• Glisser un contrôle MultiPage sur le formulaire — il comporte deux pages par défaut, ce qui correspond exactement à vos besoins.
• Renommer chaque page via un clic droit → Ordre des pages, ou en sélectionnant l’onglet de la page et en utilisant le champ Caption de la fenêtre Propriétés (Caption contrôle le texte visible de l’onglet ; il existe aussi un champ (Name) si vous souhaitez référencer une page par son nom dans le code).
• Déplacer des contrôles existants sur une page signifie les glisser physiquement sur la zone visible de cette page en mode Création — les références dans le code ne changent pas, car le nom d’un contrôle ne dépend pas de la page sur laquelle il se trouve.

Private Sub UserForm_Initialize()
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"

    lstCities.AddItem "Chicago"
    lstCities.AddItem "Boston"
    lstCities.AddItem "Austin"
    lstCities.AddItem "Seattle"
    lstCities.AddItem "Denver"
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
    Dim errors As String
    Dim status As String

    ' --- Reset field colors ---
    txtCompanyName.BackColor = vbWhite
    txtContact.BackColor = vbWhite
    txtEmail.BackColor = vbWhite

    ' --- Required field checks ---
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
        txtCompanyName.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtContact.Value) = "" Then
        errors = errors & "- Contact is required" & vbNewLine
        txtContact.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtEmail.Value) = "" Then
        errors = errors & "- Email is required" & vbNewLine
        txtEmail.BackColor = RGB(255, 199, 206)
    End If

    ' --- Status via OptionButtons ---
    If optActive.Value = True Then
        status = "Active"
    ElseIf optInactive.Value = True Then
        status = "Inactive"
    ElseIf optProspect.Value = True Then
        status = "Prospect"
    Else
        errors = errors & "- Please select a Status" & vbNewLine
    End If

    ' --- ListBox check ---
    If lstCities.ListIndex = -1 Then
        errors = errors & "- Please select a city from the list" & vbNewLine
    End If

    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, vbExclamation
        Exit Sub
    End If

    ' --- All checks passed — safe to save now ---
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "C0" & (tbl.ListRows.Count + 100)
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = status

    If chkWelcomeEmail.Value = True Then
        MsgBox "A welcome email would be sent to " & txtEmail.Value & "."
    End If

    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Notes de test :

• Le point 2 (CheckBoxes) n’a pas de validation dédiée — il suffit de cliquer sur chkWelcomeEmail et chkNewsletter indépendamment et de vérifier que chaque case s’active sans affecter l’autre.
• Le point 4 (MultiPage) est uniquement un changement de mise en page — aucun changement de code n’est nécessaire au-delà de ce qui est déjà présent, car chaque contrôle conserve son nom quel que soit l’onglet où il est placé.
• Remarquez que cboCity.Value est toujours utilisé pour l’enregistrement réel (newRow.Range(1, 5)), tandis que lstCities existe uniquement comme contrôle séparé, validé indépendamment selon la consigne — les deux ne sont pas liés sauf si vous choisissez de l’étendre vous-même.