Vérifier si un mot existe dans une plage de données

Bonjour, dans ma feuille excel je cherche à savoir si chaque cellule A existe dans la colonne C er si c'est le cas déplacer la case A a cote de la case C correspondante

Je vous joint ma feuille excel exemple

Par exemple je cherche à savoir si la case A4 contenant le mot "vélo" est présent dans la colonne C

Et donc vu que c'est le cas déplace la cas A4 dans la colonne A à côté de la case C correspondante

Bonne journée

Update :

J'ai commencé un début de code en VBA:

Sub Macro1()
Dim i As Long
Dim j As Variant
Set j = "=SI(NB.SI(D:D;" * "&A & i&" * ");1;0)"
For i = 2 To 55
If j = 1 Then
'Et donc là j'aimerais que donc si c'est égal à 1(c'est-à-dire) que la valeur de A existe dans la colonne C, elle soit déplacé pour être dans la bonne ligne par rapport à sa celulle C
End Sub

Salut bon j'ai pas super bien compris l'objectif mais tu peux essayer avec ça

Sub test()

Dim A As Range
Dim B As String

A = Application.InputBox("cellule ?", , , , , , , 8)

B = A.Value

Columns(4).Cells.Find(What:=B).Activate

ActiveCell.Offset(0, -3) = B

A.Delete

End Sub

Bonjour, merci pour ta réponse, je comprend pas bien ton code, et ça ne fonctionne pas quand je l'intègre à mon code

en fait le but c'est que :

1. Savoir si par exemple la valeur A4("vélo") existe dans la colonne C -> si elle existe savoir où elle existe(là elle est placée en C3("vélo vert-oui")

2.Et donc de déplacer la valeur A4("vélo") en A3 pour qu'elle soit à côté de la valeur C3("vélo vert oui")

Update :

La formule =EQUIV(A2&"*";C:C;0) marche dans excel normalement

Mais je ne vois pas comment l'inclure dans mon code en VBA

Finalement j'ai trouvé une solution qui marche parfaitement :

Dim i As Long
Dim j As Range

For i = 2 To 55
Set j = Range("F" & i) 'EQUIV(A2&" * ";C:C;0)

    If Range("E" & i) = 1 Then  'E équivaut à "=SI(NB.SI(C:C;" * "&A2&" * ";1;0)"

        Range("A" & i).Copy Range("A" & j) 
        Range("A" & i).ClearContents 'j'efface les anciennes valeurs de A qui ont été copié au bon endroit
        Range("A1") = "Prénom" 'Je remet mon entête qui avait été effacé
    End If
Next

End Sub