Sub Compteur1_QuandChangement()
Derlig = [K65536].End(xlUp).Row + 1
If ActiveCell.Column <> 11 Then Cells(ActiveCell.Row, 11).Select
If ActiveCell.Row < 15 Then Cells(15, 11).Select
Range("K15:K" & Derlig).Find(what:="", After:=ActiveCell).Activate
End Sub