incompetence totale dans les boucles

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim nl As Long 'déclare la variable nl (Numéro de Ligne)
Dim ns As String 'déclare la variable ns (Nom Stagiaire)
Dim ps As String 'déclare la variable ps (Prénom Stagiaire)
Dim st As String 'déclare la variable st (STagiaire)
 
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1""
    For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row) 'boucle 1 sur toutes les lignes éditées
        nl = cel.Row 'définit la variable l
        For x = 5 To 50 Step 5 'boucle 2 sur les colonne de 5 à 50 pas pas de 5
            ns = .Cells(nl, x) 'définit la variable ns
            If ns = "" Then Exit Sub 'si le nom est vide, sort de la procédure
            ps = .Cells(nl, x + 1) 'définit la variable ps
            st = ns & " " & ps 'définit la variable st
            Sheets("Feuil2").Range("A14").Value = st 'place le nom/prénom dans l'onglet "Feuil2"
            'etc.... (code
        Next x 'prochaine colonne de la boucle 2
    Next cel 'prochaine cellule de la boucle 1
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub