Que choisir pour extraire de Excel et afficher dans Excel?

c'est que le bouton radio soit initialisé après une réponse

Sub EnregistreResultats(Nom As String, Article As String, Result As Integer, Elim As Byte)   
Dim Lig As Integer, Col As Integer, Pos As Integer, NbrCar As Integer   
Dim Score   

'Dans la feuille "Résultats"   
With Sheets("Résultats")   
    'on cherche la ligne ou en colonne A on a le nom de l'utilisateur   
    Lig = .Columns(1).Cells.Find(Nom, Lookat:=xlWhole).Row   
    'on cherche la colonne ou dans la 1ere ligne on a le nom de l'article   
    Col = .Rows(1).Cells.Find(Article, Lookat:=xlWhole).Column   
    'Si la cellule d'intersection lig col est vide   
    If .Cells(Lig, Col) = "" Then   
        'on y enregistre : la date + ¤ + le résultat   
        .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim   
       
    Else 'sinon, si elle n'est pas vide   
           
        'On regarde si la note précédente était éliminatoire   
        If Right(.Cells(Lig, Col), 1) = 0 Then   
            'Si c'est le cas, et que la note du jour n'est pas éliminatoire   
            If Elim = 1 Then   
'Cas : ce jour non éliminatoire ; jour précédent éliminatoire   
    'ON REMPLACE   
                .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim   
                Exit Sub   
            Else   
'Cas : ce jour éliminatoire ; jour précédent éliminatoire   
    'ON VERIFIE LE SCORE   
                Pos = InStr(.Cells(Lig, Col), "¤") + 1   
                NbrCar = InStr(InStr(1, .Cells(Lig, Col), "¤") + 1, .Cells(Lig, Col), "¤") - (InStr(1, .Cells(Lig, Col), "¤") + 1)   
                Score = Mid(.Cells(Lig, Col), Pos, NbrCar)   
                'si le score de la cellule est, inférieur au résultat du jour   
                If Score < Result Then   
                    'on enregistre, dans la cellule : la date + ¤ + le résultat   
                    .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim   
                    Exit Sub   
                End If 'dans le cas contraire (résultat inférieur) on ne fait rien   
            End If   
        Else   
'Cas : ce jour éliminatoire ; jour précédent non éliminatoire   
    'ON N'ENREGISTRE PAS   
            If Elim = 0 Then Exit Sub   
        End If   
'Cas : ce jour non éliminatoire ; jour précédent non éliminatoire   
    'ON VERIFIE LE SCORE   
        'on extrait le score de la cellule   
        Pos = InStr(.Cells(Lig, Col), "¤") + 1   
        NbrCar = InStr(InStr(1, .Cells(Lig, Col), "¤") + 1, .Cells(Lig, Col), "¤") - (InStr(1, .Cells(Lig, Col), "¤") + 1)   
        Score = Mid(.Cells(Lig, Col), Pos, NbrCar)   
        'si le score de la cellule est, inférieur au résultat du jour   
        If Score < Result Then   
            'on enregistre, dans la cellule : la date + ¤ + le résultat   
            .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim   
        End If 'dans le cas contraire (résultat inférieur) on ne fait rien   
    End If   
End With   
End Sub   

Dim Nom As String, Article As String, Resultats As Integer, Elim As Byte   
Nom = Label19.Caption   
Article = ComboBox1.Value   
Resultats = TextBox4.Value   
If Eliminatoire = False Then Elim = 1 Else Elim = 0   
EnregistreResultats Nom, Article, Resultats, Elim

'Clic sur Envoyer les résultats"   
Private Sub CommandButton4_Click()   
Dim Expedit As String, Destinat As String, CopieA As String   
Dim Nom As String, Article As String, Resultats As Integer, Elim As Byte   
'Si l'utilisateur n'a pas répondu à 15 questions on quitte on n'envoie rien   
If Cpt <> 15 Then MsgBox "Vous n'avez pas répondu aux 15 questions.": Exit Sub   
'***** A ADAPTER : mettre les adresses mails des expéditeurs, destinataires et copies   
Expedit = "xxxxx.xxxxxx@xxx.fr"   
Destinat = "franck.xxxxxxxxxxx@xxx.fr"   
CopieA = "xxx.xxxxxxxxxxxxxxx@xxx.fr"   
EnvoiMail Expedit, Destinat, CopieA   
'On place les résultats dans la feuille "résultats"   
'si ceux ci sont les meilleurs pour ce candidat   
Nom = Label19.Caption   
Article = ComboBox1.Value   
Resultats = TextBox4.Value   
If Eliminatoire = False Then Elim = 1 Else Elim = 0   
EnregistreResultats Nom, Article, Resultats, Elim 'cf Module1  
'on efface le contenu de la feuille "Questions deja posees"   
With Sheets("Questions deja posees")   
    .Cells.Clear   
End With   
'on règle le boolean Eliminatoire = false   
Eliminatoire = False   
End Sub

Expedit = "franck.111111@xxxxx.fr"
Destinat = "xxxx.xxxxxx@xxxxx.fr, yyyyyyyy.yyyy@yyyyy.com"
CopieA = ""
EnvoiMail Expedit, Destinat, CopieA

Dim Ligne As Long 
Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1

Range("A" & Ligne) = Me.Label19.Caption

Dim Col As Integer 
Col = Cells(Ligne, Cells.Columns.Count).End(xlToLeft).Column + 1

Dim Ligne As Long 
With Sheets("Archives")
    Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & Ligne) = Me.Label19.Caption
End With

Dim Ligne As Long 
Dim Col As Integer 

With Sheets("Archives")
    Ligne = .Range("A" & Rows.Count).End(xlUp).Row
    Col = .Cells(Ligne, Cells.Columns.Count).End(xlToLeft).Column + 1
    .Range("A" & Ligne) = Me.Label19.Caption
    .Cells(Ligne, Col) = Reponse
End With