Sub TestGarder()
With Sheets("Test")
For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
If .Range("AA" & i) <> "Gardé" Then
.Range("AA" & i).EntireRow.Delete
End If
Next i
End With
End Sub
Sub PageGarder()
With Sheets("Page")
For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
If .Range("X" & i) <> .Range("Z" & i) Then
.Range("AA" & i).EntireRow.Delete
End If
Next i
End With
End Sub