Option Compare Text
'L'Option Compare Text en Top de Module permettra de saisir indifféremment en MAJ ou en min...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then
If Target = 'PP' Then
MsgBox 'Veuillez utiliser du PETG de préférence pour vos répartitions'
End If
End If
End Sub