DISTANCIER

=INDEX(B2:U21;EQUIV(MIN(W3;W5);B1:U1;0);EQUIV(MAX(W3;W5);A$2:A21;0))

Sub Miroir()
Dim InfoLigne As Range
Dim InfoColonne As Range
Application.EnableEvents = False

Set InfoColonne = Range("A2:A100") ' A adapter
Set InfoLigne = Range("B1:CV1") ' A adapter

For Each x In Range("B2:CV100") ' A adapter
If x.Value > 0 Then
lig = x.Row: col = x.Column
LaLigne = Range("A" & lig): LaColonne = Cells(1, col)

With InfoColonne
    Set c = .Find(LaColonne)
        If Not c Is Nothing Then
            adres2 = c.Address
            numeligne = c.Row
        End If
End With

With InfoLigne
    Set c = .Find(LaLigne)
        If Not c Is Nothing Then
            adres1 = c.Address
            numecol = c.Column
        End If
End With

Cells(numeligne, numecol) = x.Value
End If
Next x

Application.EnableEvents = True
End Sub