Should

If find  A(bien) in Range("B29").Value) Then Exit For

Be

If find A(count) in Range("B29").Value) Then Exit For

I mean it always exit For and tell me incorrectly that value "JOY" in cell
B29

I think we need to see more of the sub. With the bit of code you showed it
will always exit for. If it finds that one of the values in the array is in
B29 it will exit for. If it does not find  that it will still exit for when it
has exhaused all the values in the array (it falls out at the bottom of the
loop.

I would suggest that when sending code you use copy and paste, rather than
retyping. Otherwise we tell you all your typos, which you should have found
in VB editor anyhow.

Very sorry about that


Sub testing()
On Error Resume Next

Dim count, description

Dim A As Variant

A = Array("JOY", "COKE", "FANTA", "SPRITE")

For count = 0 To 3
If (WorksheetFunction.Find(A(count), Range("B29").Value)
> 6) Then


Exit For

End If

Next count

description = Right(Range("Parameter!C6").Value, 3) & "-" &
Range("B24").Value & A(count)



End Sub
I want to extract the word JOY/COKE/FANTA/SPRITE

' B29 sometimes is 600ML JOY BOTTLE (1,530/PLT) / 1.50 LT COKE (LOCAL) 576
Bt / 1.50 LT FANTA (LOCAL) 576 Bt / 1.50 LT SPRITE (LOCAL) 576 Bt

I notice that JOY/COKE.... start at least from 7 in cell  B29 but I do not
think it's a good condition "WorksheetFunction.Find(A(count),
Range("B29").Value) > 6"

This should work

Sub testing()

Dim description
Dim A As Variant
Dim X
Dim J

A = Array("JOY", "COKE", "FANTA", "SPRITE")

For J = 0 To 3
If InStr(Range("B29").Value, A(J)) > 6 Then Exit For
Next J

description = Right(Range("Parameter!C6").Value, 3) & "-" & Range("B24").Value
& A(J)

End Sub