Autres transférer les valeurs de userform vers la feuil1

Private Sub CommandButton1_Click()
    With Sheets("Feuil1")
        .[G7] = TextBox1.Value
        .[G9] = TextBox2.Value
        .[G11] = TextBox3.Value
        .[G13] = ComboBox1.Value
    End With
End Sub

Private Sub CommandButton2_Click()
    With Sheets("Feuil1")
        TextBox1.Value =.[G7]
        TextBox2.Value =.[G9]
        TextBox3.Value =.[G11]
        ComboBox1.Value = .[G13]
    End With
End Sub

Private Sub CommandButton1_Click()
    With Sheets("Feuil1")
        .[G7] = TextBox1.Value
        .[G9] = TextBox2.Value
        .[G11] = TextBox3.Value
        .[G13] = ComboBox1.Value
        
        TextBox4.Value = .[O7]
        TextBox5.Value = .[O9]
        TextBox6.Value = .[O11]
        
        '--------------------------- Pour les cases à cocher
        If CheckBox1 = True Then
            .[G17] = "Oui"
        Else
            .[G17] = "Non"
        End If
        
        '--------------------------- Pour les boutons Option
        If OptionButton1 = True Then
            .[G19] = "1"
        Else
            .[G19] = "2"
        End If
    End With
End Sub

Private Sub CheckBox1_Click()
    '----------------------------------- CASE A COCHER
    With Sheets("Feuil1")
        If CheckBox1 = True Then
            .[G17] = "Oui"
        Else
            .[G17] = "Non"
        End If
    End With
End Sub


Private Sub OptionButton1_Click()
    '----------------------------------- BOUTON OPTION 1
    With Sheets("Feuil1")
        If OptionButton1 = True Then
            .[G19] = "1"
        Else
            .[G19] = "2"
        End If
    End With
End Sub

Private Sub OptionButton2_Click()
    '----------------------------------- BOUTON OPTION 2
    With Sheets("Feuil1")
        If OptionButton2 = True Then
            .[G19] = "2"
        Else
            .[G19] = "1"
        End If
    End With
End Sub