Sub ValiderReponses()
Dim rep As Integer
rep = MsgBox("veux tu valider ?", vbYesNo + vbQuestion, "Demande de validation")
If rep = vbYes Then
Sheets(1).Range("A1") = "[B]Mettre la Valeur correcte[/B]"
Else
Sheets(1).Range("A1") = "Salut"
End If
End Sub