Ligne dont les deux premiers caractere sont GG

Bonjour

Sub trier()

  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long

  Sheets("def").Activate 

  Col = "E"                 
  NumLig = 0
  With Sheets("te")     
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With

End Sub

j'ai cette macro qui fonctionne bien mais comment faire pour changer la condition pour:

si les deux premiers caracteres de la cellule de la colonne E est "GG"

pour comprendre , je voudrais dans une liste copier/coller dans une autre feuille les lignes dont les deux premier caracteres de la cellule de la colonne E est "GG"

alors que la ca le fait avec toute les lignes dont la cellule de la colonne E n'est pas vide.

Salut le forum

Maguetlolo, modifie ta condition

   If left(.Cells(Lig, Col).Value,2) = "GG" Then 

Mytå

Bonjour Myta

impeccable comme d'hab'

merci

Laurent