Re 'soir à toutes et tous,
j'suis vraiment désolé pour ce post. J'ai trouvé la soluce
après maintes essais. En fait il ne fallait pas que je sélectionne
la colonne : because alpha num en entête.
For Each cell In Worksheets("6classement").Range("A2:A300")
If cell.Value = CellTest Then
MsgBox "N° de ticket déja attribué"
Range("h6").Select
Exit Sub
End If
Next cell
Désolé pour le dérangement,
et bonne nuit.