Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cible As Range
Set Cible = Intersect(Target, Range('a1:a3'))
If Not Cible Is Nothing Then
If Sheets(1).Range('A1') = '' Or Sheets(1).Range('A2') = '' Or Sheets(1).Range('A3') = '' Then
Exit Sub
Else
MsgBox 'Votre réponse, avec les éléments donnés, est la suivante: ' & Sheets(1).Range('A3'), vbOKOnly
End If
End If
End Sub