Private Sub Workbook_Open()
Dim Plage As Range
Dim Cel As Range
With Sheets(1)
Set Plage = .Range("A1:A65500").Find("y")
For Each Cel In .Range("A1:A" & .Range("A65500").End(xlUp).Row)
If Cel.Value = "y" Then Set Plage = Union(Plage, Cel)
Next
Plage.Select
End With
End Sub
Plage.Select
Plage.EntireRow.Select
Re,
Oui, bien sûr, il suffit de remplacer :
parCode:Plage.Select
CordialementCode:Plage.EntireRow.Select
Plage.EntireRow.Select
On Error Resume Next