Formulaire pour sondage

Private Sub b_valider_Click()
    Sheets("Sondage formation").Select
    Cells.Find("service").Select
    If ActiveCell.Offset(1, 0) <> "" Then
     ActiveCell.End(xlDown).Offset(1, 0).Select
    Else
        ActiveCell.Offset(1, 0).Select
    End If
        ActiveCell.Value = t_service
        resultat = ""
        For Each i In Me.c_motivee_suivi.Controls
            If i.Value = True Then
            resultat1 = i.Caption
            End If
        Next i
        ActiveCell.Offset(0, 1) = resultat1
        resultat2 = ""
    For Each i In Me.c_amenagement_poste.Controls
        If i.Value = True Then
            resultat2 = i.Caption
        End If
    Next i
        ActiveCell.Offset(0, 2) = resultat2
        resultat3 = ""