Sub trouve()
lin = Range("A65536").End(xlUp).Row
col = Range("A1").End(xlToRight).Column
Dim F1 As Worksheet
Set F1 = Worksheets("Feuil1")
' Variable
Dim L As Integer
Dim C As Integer
tab1 = F1.Range(F1.Cells(1, 1), F1.Cells(lin, col))
For i = 1 To UBound(tab1, 1)
For J = 1 To UBound(tab1, 2)
If tab1(i, J) = CStr("1 4 10 12 18") Then '
MsgBox tab1(i, J)
L = i
C = J
End If
Next J
Next i
' Selection de la cellule
F1.Cells(L, C).Select
End Sub
[code=vb]
Bon C'était une pointe d'humour, pour Info se forum est Formidable est ceux qui répondent sont vraiment des Pros donc il faut essayer d'être précis et je tiens a dire merci a tous ceux qui mon aider depuis mes début. en espèrent aussi vous avoir aider au plaisir de vous lire tous vous répondre, apprendre, partager pour être toujours plus fort et performant.
Ps : Robert j'ai trouver la réponse en se moment je trvail beaucoup est je suis sur des choses difficile est complexe pour ce qui est de mon niveau, merci a vous Robert car vous m'avez aussi beaucoup aider sur se forum.
Laurent