problème d'imbrication de boucles For...Next

Sub cartman()
'je vois plutot ton pbl comme ca :)
' si je le fais a la main ca donne ca :

'je traite d abord les ligne de ta feuille 1
For x = 7 To 10
    'quand je suis sur 1 ligne il me faut regarder toute les colonnes
    For y = 2 To 17
        'ici je suis dans le tableau et je vais voir si la case que je regarde contient une croix
        If Cells(x, y) = x Then
        'ensuite je fais tout ce don j ai besoin la dedans vu que je suis dans une case avec une crois
        
        End If
    Next y
Next x

End Sub

Sub machin()
Dim tablo() As Variant
With Sheets("Feuil1")
y = 1
    For Each Cel In .Range("A7:A10")
        For i = 1 To 16
            If .Cells(Cel.Row, i + 1) = "x" Then
            ReDim Preserve tablo(1 To y)
            tablo(y) = .Cells(6, i + 1)
            y = y + 1
            End If
        Next
        For j = 1 To UBound(tablo)
        Sheets(Cel.Value).Cells(1, j) = tablo(j) 'ligne à adapter
        Next
    Next
End With
End Sub