Worksheets("Saisie").Select
If Cells(9, 6).Value = "L" Then MsgBox "Merci d'inserer un commentaire dans le pavé MPM TRANSPORT", vbExclamation, "Smiley NC affiché"
If Cells(15, 6).Value = "L" Then MsgBox "Merci d'inserer un commentaire dans le pavé OPTIMISATION CHARGEMENT", vbExclamation, "Smiley NC affiché"
If Cells(24, 6).Value = "L" Then MsgBox "Merci d'inserer un commentaire dans le pavé PERFORMANCE RECEPTION", vbExclamation, "Smiley NC affiché"