Bonjour
Modifies la partie du code correspondante
Set PLV = PL.SpecialCells(xlCellTypeVisible) 'définit la plage PLV (cellules visible, non filtrées, de la plage PL)
'copie la plage PLV dans la première cellule vide de la colonne 1 (=A) de l'onglet O2
'PLV.Copy O2.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
PLV.Copy
O2.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
O1.Range("A2").AutoFilter 'supprime le filtre automatique