Bonjour,
Utilise ce code :
Code:
Sub control()
Dim vciel As String
vciel = Range('A1').Value
Select Case vciel
Case Is = 'étoile'
End
Case Is = 'les étoiles brillent'
Msgbox 'tata'
End Select
End Sub
Si A1 est égal à 'étoile' rien ne se passe
Si A1 est égal à 'les étoiles brillent'
Bon travail
