Function MonAlerte(r As Range) As Boolean
If r.Count < 6 Then Exit Function
Dim a, i%
a = Array("M", "A", "N", "D", "DM", "DA", "STA", "RF", "CA")
For i = r.Count To r.Count - 5 Step -1
If IsError(Application.Match(r(i), a, 0)) Then Exit Function
Next
MonAlerte = True
End Function