Copier un contenant ?

Bonsoir, j'ai un petit soucis avec ce code, il me copie toutes les lignes contenant le titre "Bonjour de 2013", mais je voudrais que la macro copie les cellules qui en contenant qu'une partie.

Si il trouve "Bonjour de" dans une cellule et bien il la copie.

 Sheets("Bonjour").Range("A2:H2000").ClearContents
  With WsSource
    If .AutoFilterMode = True Then .ShowAllData
      NbLg = .Range("A" & Rows.Count).End(xlUp).Row
      .Range("A1:H" & NbLg).AutoFilter Field:=3, Criteria1:="=*Bonjour de 2013*"
      If Application.Subtotal(3, .Columns("A")) > 1 Then
        .Range("A2:H" & NbLg).SpecialCells(xlCellTypeVisible).Copy Destination:=WsDestin.Range("A2")
        .Range("A2:H" & NbLg).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      End If
      .Range("A1:H" & NbLg).AutoFilter
    End With

Bonsoir

A toi de mettre dans le critère ce que tu considères comme la plus petite partie de ce que tu cherches

Cela peut être ça

.Range("A1:H" & NbLg).AutoFilter Field:=3, Criteria1:="=*Bonjour*"

Ou ça

.Range("A1:H" & NbLg).AutoFilter Field:=3, Criteria1:="=*2*"

Ou .....

Merci je teste demain.

Merci super !