Sub trouve()
ActiveSheet.Range(Cells(10, ActiveSheet.Cells.Find("Observation").Column), Cells(20, ActiveSheet.Cells.Find("Observation").Column)).Select
End Sub
Sub trouve2()
ActiveSheet.Range(Cells(ActiveSheet.Cells.Find("Observation").Row + 9, ActiveSheet.Cells.Find("Observation").Column), Cells(ActiveSheet.Cells.Find("Observation").Row + 19, ActiveSheet.Cells.Find("Observation").Column)).Select
End Sub
Sub trouve3()
ActiveSheet.Cells.Range("Observation").Item(10).Range("A1:A10").Select
End Sub