Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tableau(), t&
'Placer tous les noms à contrôler dans ce Tableau :
Tableau = Array("Pomme", "Poire", "Orange", "Banane")
For t = LBound(Tableau) To UBound(Tableau)
If Tableau(t) = Range("A13") Then Range("A13") = Range("A13") & " (Sous réserve)"
Next t
End Sub