validation avec msgbox

If MsgBox("etes vous sur de vouloir valider?", vbYesNoCancel + vbExclamation, "demande de confirmation") = vbYes Then
        With Worksheets("feuil1")
            derligne = .Range("A65536").End(xlUp).Row + 1
            For Each ctrl In UserForm1.Controls
                If TextBox1.Value > 0 Then Feuil1.Cells(derligne, 1) = TextBox1.Value
                If TextBox2.Value > 0 Then Feuil1.Cells(derligne, 2) = TextBox2.Value
                If ComboBox1.Value > 0 Then Feuil1.Cells(derligne, 3) = ComboBox1.Value
                If TextBox5.Value > 0 Then Feuil1.Cells(derligne, 6) = TextBox5.Value
                If OptionButton2.Value >= 0 Then Feuil1.Cells(derligne, 4).Value = "P"
                If OptionButton1.Value >= 0 Then Feuil1.Cells(derligne, 5).Value = "N/P"
            Next

        End With
    End If