Private Sub CommandButton2_Click()
If MsgBox("Etes-vous certain de vouloir supprimer le contenu de l'évaluation ?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets(Array("Résultat Evaluation")).Select
'Cherche la dernière cellule de la colonne B
i = Cells(Rows.Count, 2).End(xlUp).Row
'Si i est inférieur à 23, alors on lui donne cette valeur
If i < 23 Then i = 23
'On supprime les lignes qui nous intéresse
Rows("23:" & i).Clear
MsgBox "Le contenu de l'évaluation a été effacé !"
End If
End Sub