bonjour Mickael et Mara,
Voici autre chose en VB, les lignes dont la valeur est identique en colonne B sont reportées sur un autre onglet.
Sub ReporteLignesMValeurs()
Columns("A:A").Select
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.End(xlDown).Select
Selection.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = "CRITERE"
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("c2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
With [A1].CurrentRegion
.Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(1, 0).Formula = "=IF(OR(RC[2]=R[-1]C[2],RC[2]=R[1]C[2]),TRUE,FALSE)"
.AutoFilter 1, True
Worksheets.Add
.CurrentRegion.Copy [A1]
End With
End Sub
A bientôt
Rénato