Copier/coller/supprimer des lignes

Bonjour,

Je ne comprends pas ma deuxième macro ne fonctionne pas et ma première macro ne marche plus

Ma première macro permet de mettre les valeurs associée aux valeurs "T11" ; "R7" et "R6" de l'onglet "Traitement" dans l'onglets "références"

et ma deuxième macro de supprimer ces lignes de l'onglet "Saisie LIMS"

Les feuilles seront protégés.

Pourriez vous s'il vous plait regardé d'où vient le problème ?

Merci d'avance

Bonjour toutes et tous

merci à Gmb:

https://forum.excel-pratique.com/viewtopic.php?t=67976

@ tester

remplacer ShowAllData

par

If FilterMode = True Then ActiveSheet.ShowAllData

Sub supplign()

Sheets("Saisie LIMS").Unprotect ("1234")

Dim pl As Range
    With Sheets("Saisie LIMS")
        .Range("$A$9:$A$509").AutoFilter Field:=1, Criteria1:=Array("R6", "R7", "T11"), Operator:=xlFilterValues
        Set pl = .[A2].Resize(.Cells(Rows.Count, 1).End(xlUp).Row).EntireRow
        On Error GoTo fin
        Set pl = pl.SpecialCells(xlCellTypeVisible)
        If Not pl Is Nothing Then pl.EntireRow.Delete
fin:
        If FilterMode = True Then ActiveSheet.ShowAllData
    End With

Sheets("Saisie LIMS").Protect ("1234")

End Sub

Edit: il doit y avoir une autre erreur quelque part

crdlt,

André