Sub trouv()
'Ajout d'une unique feuille
Sheets.Add
ActiveSheet.Name = "essai"
Sheets("Copie de essai1").Activate
'Déterminer le nombre de lignes à parcourir dans la feuille Copie de essai1
Dim i As Long
Dim j As Long
Dim a As Long
Dim b As Long
i = Sheets("Copie de essai1").Range("B65536").End(xlUp).Row
For a = 1 To i
Sheets("Copie de essai1").Activate
If Range("B" & a).Value Like "*;*" Then
Cells(a, 2).EntireRow.Interior.ColorIndex = 6
Cells(a, 2).EntireRow.Copy
Sheets("essai").Activate
'Déterminer la dernière ligne libre de la feuille "essai"
j = Sheets("essai").Range("A65536").End(xlUp).Row
j = j + 1
Range("A" & j).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next
Sheets("essai").Cells(1, 1).EntireRow.Delete
End Sub