Je voudrais supprimer les lignes dont les cellules d'une colonne ( a l 'ocurance la c' est O) contient "COMPTE", quand j' execute la macro suivant ca m'efface toutes les lignes. est ce que l'on peut me dire ou est l'erreur
Sub Macro1()
Dim PLG_FIL As Range
If Not ActiveSheet.AutoFilterMode Then
Range("O1").AutoFilter Field:=1, Criteria1:="compte"
End If
Set PLG_FIL = ActiveSheet.AutoFilter.Range
PLG_FIL.Offset(1, 0).Resize(PLG_FIL.Rows.Count - 1, 1).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub
Merci pour l'aide
Sub Macro1()
Dim PLG_FIL As Range
If Not ActiveSheet.AutoFilterMode Then
Range("O1").AutoFilter Field:=1, Criteria1:="compte"
End If
Set PLG_FIL = ActiveSheet.AutoFilter.Range
PLG_FIL.Offset(1, 0).Resize(PLG_FIL.Rows.Count - 1, 1).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub
Merci pour l'aide