Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$22" Then
If UCase(Target.Value) = "Conso client" Then
MsgBox "Vous avez sélectionné Conso client, veuillez saisir le nom de l'enseigne société!", vbInformation, "Identification enseigne/société concerné"
End If
End If
End Sub