For Lgn = 1 To UBound(Tbl_Topology, 1)
If Tbl_Topology(Lgn, 1) Like StrSiteCode Then
x = x + 1
ReDim Preserve Tbl_R_Topology(31, x)
Tbl_R_Topology(1, x) = StrSiteCode
Tbl_R_Topology(2, x) = Tbl_Topology(Lgn, 2)
Tbl_R_Topology(3, x) = Tbl_Topology(Lgn, 3)
Tbl_R_Topology(4, x) = Tbl_Topology(Lgn, 4)
Tbl_R_Topology(5, x) = Tbl_Topology(Lgn, 5)
Tbl_R_Topology(6, x) = Tbl_Topology(Lgn, 6)
End If
Next Lgn
If x > 0 Then
Feuil1.Cells(31, 1).Resize(UBound(Tbl_R_Topology, 2), UBound(Tbl_R_Topology, 1)) = Application.Transpose(Tbl_R_Topology)