Bonjour,
Voir ci-joint une proposition. On se base sur le nom de la forme en colonne B pour la retrouver. En effet puisqu'elles tournent, il est difficile de les identifier autrement, on risque d'avoir des erreurs.
Le code ci-après :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("C")) Is Nothing Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub
Dim shp As Shape
For Each shp In Me.Shapes
If shp.Name = Target.Offset(0, -1).Value2 Then
shp.Rotation = Target.Value2 * -1 ' -1 parce que le referenciel est inversé
Exit Sub
End If
Next shp
End Sub