[font=Courier New][color=darkblue]Sub[/color] test_M()
[color=darkblue]Dim[/color] c [color=darkblue]As[/color] [color=darkblue]Integer[/color]
[color=darkblue]Dim[/color] r [color=darkblue]As[/color] Range
[color=darkblue]Set[/color] r = Range("a1:g1")
[color=darkblue]Dim[/color] i%, s$, check%
c = r.Columns.Count
[color=darkblue]For[/color] i = 1 [color=darkblue]To[/color] c
s = s & r(i)
[color=darkblue]Next[/color]
check = InStr(s, ActiveCell.Text)
[color=darkblue]If[/color] [color=darkblue]Not[/color] check > 0 [color=darkblue]Then[/color]
MsgBox "La lettre " _
& ActiveCell & _
" n'est pas dans la ligne 1.", _
vbCritical, "ERREUR"
[color=darkblue]Else[/color]
MsgBox "La lettre " _
& ActiveCell & _
" est dans la ligne 1.", vbInformation, "SAISIE VALIDE"
[color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color][/font]