Microsoft 365 Dernier résultat par rapport à une valeur

=DECALER($I$1;MAX(LIGNE(TbCompteur[Véhicule])*(TbCompteur[Véhicule]=V1))-1;;;)

=RECHERCHE("zzz";D:D)

=(DECALER($I$1;MAX(LIGNE(TbCompteur[Véhicule])*(TbCompteur[Véhicule]=V1))-1;;;))/100

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

If Not Application.Intersect(Target, [TbCompteur]) Is Nothing Then
     ActiveSheet.Shapes.Range(Array("AiguilleA")).Rotation = Range("W1").Value * 185
     ActiveSheet.Shapes.Range(Array("AiguilleB")).Rotation = Range("W2").Value * 185
     ActiveSheet.Shapes.Range(Array("AiguilleC")).Rotation = Range("W3").Value * 185
     ActiveSheet.Shapes.Range(Array("AiguilleD")).Rotation = Range("W4").Value * 185
     Range("U1").Select
End If

Application.ScreenUpdating = True
End Sub