Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim res As Variant
RoseWind = Array("NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", "S", "SSO", "SO", "OSO", "O", "ONO", "NO", "NNO", "N")
res = Application.Match(Range("E5").Value, RoseWind, 0)
If Not IsError(res) Then ActiveSheet.Shapes("Girouette").Rotation = 270 + 22.5 * res
End Sub