Hello,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G3")) Is Nothing Then
If [G3] Like "*RIL" Then
MsgBox "Attention autorisation spéciale obligatoire !", vbInformation + vbOKOnly
End If
End If
End Sub
A mettre dans le code de la feuille qui contient la liste déroulante.
A+,
Kilian