Je voudrai deleter toutes les lignes ou la cellule A n'est pas egale a "PH" sachant que mon fichier se reactualise toute les heures et donc le nb total de lignes varie.
Tiens je t'ai fais cette macro qui exécute ta requête...donc elle supprime toutes les lignes dont la valeur de la cellule A ne correspond pas à "PH"...
Option Explicit
'Vériland Juillet 2003
'
Sub SupprimeSelonValeur()
Dim DerLigne As Long
Dim Boucle As Long
Dim Cherche As String
Cherche = "PH"
With ActiveSheet.UsedRange
DerLigne = .Cells(.Cells.Count).Row
End With
For Boucle = DerLigne To 1 Step -1
If Range("A" & Boucle).Value <> Cherche Then
Rows(Boucle).Delete
End If
Next Boucle
End Sub
PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs GRAS du post dans la procédure