Option Explicit
Sub Lance()
Dim T(), L&, C&, TR(), LR&
T = ActiveSheet.[C6:M16].Value
'ReDim TR(1 To 22, 1 To 3)
ReDim TR(1 To 22, 1 To 4)
For L = 3 To UBound(T, 1)
For C = 2 To L - 1
If T(L, C) >= 0.9 Then
LR = LR + 1
TR(LR, 1) = "résultat" & LR
TR(LR, 2) = T(1, C)
TR(LR, 3) = T(L, 1)
TR(LR, 4) = T(L, C)
End If
Next C, L
ActiveSheet.[A21:D42].Value = TR 'report sur la feuille
End Sub