Hello,
et voici une solution sans utiliser d'autofiltre , en utilisant les expressions régulières :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible$, L%, c As Range, x$, i, n&, src, row, nbFois, choix
Dim regex As Object, matches As Object, Match As Object
Dim...