Microsoft 365 Code pour conversion automatique km/mi en fonction du choix de l'unité

=CONVERT(B5; "km"; "mi")

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, ActiveSheet.ListObjects(1).ListColumns(2).Range) Is Nothing Then Exit Sub

Application.EnableEvents = False
    With ActiveSheet.ListObjects(1)
        Unité = Target
        Select Case Unité
            Case "mi"
                '''coef = 1 / 1.60934
                coeff = Application.WorksheetFunction.Convert(1, "km", "mi")
            Case "km"
                '''coef = 1.60934
                coeff = Application.WorksheetFunction.Convert(1, "mi", "km")
            Case Else
                coef = 1
        End Select
        i = Target.Row - .Range.Row
        'MsgBox i
        For j = 3 To .ListColumns.Count
            If .HeaderRowRange(j) Like "Distance*" Then
                .DataBodyRange(i, j) = .DataBodyRange(i, j) * coef
            End If
        Next j
    End With
    
Application.EnableEvents = True
End Sub