Sub Selectionne()
'
Dim i&
'
For i = 1 To Range('K65536').End(xlUp).Row
If Cells(i, 11) = 'x' Then
If i > 1 Then
Range(Cells(i - 1, 11), Cells(i, 11)).EntireRow.Select
Else
Cells(i, 11).EntireRow.Select
End If
Exit For
End If
Next i
End Sub