Filtrar datos con "contiene" mediante búsqueda en celda

Hola y mejores deseos a todos,
Ejemplo adjunto con explicaciones
https://www.cjoint.com/c/HAbfUBvh3Gw
Saludos

Hola,
Gracias y feliz año para usted también,
He intentado copiar los códigos de los módulos en mi archivo de excel con éxito. Sin embargo, me indican que es necesario crear una macro, y como no tengo idea sobre esto, el filtro no funciona.
Me informaré más como pueda, y sería honorable si me concede un poco más de ayuda si es posible.
Gracias por su ayuda.
Atentamente,
iKreal.

Deuxième pregunta completamente diferente:

¿Cómo podría añadir valores a las celdas introduciéndolos en una sola?
Explicación:
Tengo mi lista:
león
leopardo
guepardo
pantera
jirafa
tigre
serpiente

Ahora, en una celda quiero añadir un elemento a la lista (debajo de esta) escribiéndolo en otra. Imaginemos en C4:
elefante

La celda se borra y la palabra se añade debajo de la lista, así obtenemos:
león
leopardo
guepardo
pantera
jirafa
tigre
serpiente
elefante

Creo que puede ser bastante simple de hacer, pero no sé mucho al respecto.
¡Gracias por las futuras ayudas!
Saludos, iKreal.

Buenas noches,
Post 5: cuando dices "si no, no clasifica correctamente", ¿hablamos de clasificación o de filtro?
Si se trata de un filtro, por favor dame algunos ejemplos que no funcionen para que pueda solucionarlos.

En cuanto a tu pregunta en 6: Aquí hay una pequeña mejora (dime si te parece bien o no), si el nombre ingresado en la celda C1 no se encuentra en la lista, entonces se agrega al final de la lista; por el contrario, la lista se filtrará por ese nombre. La celda C1, por lo tanto, tiene una doble función: o sirve como un criterio para filtrar, o sirve como un cuadro de entrada para ingresar un nuevo elemento.
Reemplaza la macro del módulo 1 por esta

Public Filtre As String Sub RechercheAvecFiltre() Application.ScreenUpdating = False Derlig = [A10000].End(xlUp).Row DerCol = [ZZ3].End(xlToLeft).Column If AutoFilterMode Then isOn = "On" Else isOn = "Off" Range(Cells(3, "A"), Cells(3, DerCol)).AutoFilter End If ActiveSheet.Range(Cells(3, "A"), Cells(Derlig, DerCol)).AutoFilter Field:=1, Criteria1:=Filtre NbVAl = Range("_FilterDataBase").Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1 If NbVAl = 0 Then ActiveSheet.AutoFilterMode = False Cells(Derlig + 1, "A").Value = [C1] End If End Sub

Si esto no te conviene, por favor especifica claramente lo que te gustaría tener.
Saludos.

Buenas noches,
Gracias por sus respuestas.
De hecho, después de la modificación, los filtros funcionan correctamente, es que había puesto valores en las celdas que causaban problemas, ¡en fin, ya está resuelto!
Sin embargo, me gustaría añadir a la lista de abajo, sí, pero no con la búsqueda, ya que la búsqueda no contiene todos los caracteres (por ejemplo: ??i?a? y no: caimán).
Gracias por sus futuras ayudas,
Atentamente,
iKreal.

Buenas noches,
Aquí está, con un botón para añadir un nuevo elemento.
https://www.cjoint.com/c/HAcrW60YVew
Saludos.

Buenas noches,
Muchas gracias por su ayuda.
Sin embargo, ¿sería posible probar todos los valores de la lista para ver si el elemento ya está en la lista y así no duplicarlo?
Gracias de nuevo por el tiempo que me brinda.
Atentamente,
iKreal.

Hola,
Aquí está con la pequeña modificación solicitada
https://www.cjoint.com/c/HAdb20h34kw
Saludos.

Hola,
Gracias por tu ayuda, sin embargo, la macro no funciona correctamente. He modificado las celdas según las mías, pero sigue diciendo que la palabra ya está registrada, aunque no lo está. No sé por qué, porque hice todo como tú.
Aquí está la hoja:


Y aquí está el código:

Sub Ajout()
 Application.ScreenUpdating = False
 DerLig = [A10000].End(xlUp).Row
 Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues)
 If c Is Nothing Then
 Cells(DerLig + 1, "A") = [A2]
 Worksheets("Feuil1").Range("A2").ClearContents
 ActiveSheet.AutoFilterMode = False
 
 'Ordenar alfabéticamente
 [A5].Select
 ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=ActiveCell, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 With ActiveWorkbook.Worksheets("Feuil1").Sort
 .SetRange ActiveCell.Range("A2:A" & [A10000].End(xlUp).Row)
 .Header = xlNo
 .MatchCase = False
 .Orientation = xlTopToBottom
 .SortMethod = xlPinYin
 .Apply
 End With
 Else
 Worksheets("Feuil1").Range("A2").ClearContents
 End If
End Sub

Solo he añadido el borrado de la celda una vez finalizado.

EDIT :
Acabo de darme cuenta de que se puede añadir una nueva palabra, sin embargo, no se puede añadir una palabra que esté contenida en otra. Por ejemplo, no puedo agregar la palabra "Biche" si ya hay la palabra "Bichette". Y eso es muy problemático. :/

Gracias por tu ayuda.
Atentamente,
iKreal.

Hola,
En la siguiente línea, no se debía cambiar nada
.SetRange ActiveCell.Range("A2:A" & [A10000].End(xlUp).Row), hay que dejar A1
Para el problema de nombres casi idénticos, sustituye esta línea

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues)

por

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues, lookat:=xlWhole)

debería funcionar.
Atentamente

Hola,
Gracias por tu respuesta.
Sin embargo, creo que había que cambiar porque cuando añadí la palabra "cierva" (para probar), esto es lo que sucedió:
No sé si realmente se debe a eso...

Y al final de la lista, esto es lo que obtengo: O_o

Lo siento, no he podido agregar la imagen...
Esto es lo que obtengo:

Sin reemplazar

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues)

por

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues, lookat:=xlWhole)

Funciona.

¡Muchas gracias!
Sin embargo, no es posible ejecutar la macro Añadir cuando ingreso la palabra en la celda (sin botón), ¿verdad?
Quizás modificando el evento.
Atentamente,
iKreal.

Hola,
Con la última modificación (eliminación del botón)
https://www.cjoint.com/c/HAecNCuASYw
Saludos

Hola,
Gracias, utilicé tus modificaciones para hacer algo personalizado, ahora una última cosa:
Cuando se añade una palabra a la lista, la celda seleccionada se convierte en la celda "Animal"
Así que me gustaría que la celda seleccionada vuelva a ser la celda A2, si es posible.

EDITAR:
Al intentar de nuevo, las palabras ya no se añaden, y no encuentro el problema.
Me parece que para seleccionar una celda hay que escribir:

Worksheets("Feuil1").Range("A2").Select

Incluso al quitar esta línea, sigue sin funcionar. Te envío mi archivo adjunto:
https://www.cjoint.com/c/HAekemH0w8q

De todos modos, muchas gracias por todo el tiempo que has dedicado a ayudarme, estoy muy agradecido.
Atentamente,
iKreal.

Hola,
Para que se seleccione la celda A2, es necesario añadir la siguiente línea en el módulo de la hoja en la penúltima línea.

 Target.Select

lo que da como resultado

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$C$2" Then Filtre = Target RechercheAvecFiltre ElseIf Target.Address = "$A$2" Then Mot = Target Ajout End If Target.Select Application.EnableEvents = True End Sub 

las palabras ya no se añaden, y no encuentro el problema., Sin embargo, el archivo que usted ha devuelto funciona bien. Déjame ejemplos que no funcionen.
https://www.cjoint.com/c/HAek5j4HnNk
Saludos.

Lo siento, después de reabrir el archivo, todo funciona correctamente. ¡Muchas gracias por su ayuda!
Atentamente,
iKreal.