XL 2019 VBA boucle For / Next

Sub Place()


Dim xlig_en_cours As Integer '(Ligne courante)
Dim xlig_nbre As Integer '(Nombre de lignes avec les entêtes)
Dim xlig_nbre_bis As Integer '(Nombre de lignes sans l'entêtes)
Dim xprono As Integer
Dim xarrive As Integer
Dim xpos As Integer

xlig_en_cours = 4 '(1ère Ligne courante)
xlig_nbre = Range("K4").End(xlDown).Row
xlig_nbre_bis = xlig_nbre - 3

xpos = 17
For xlig_en_cours = 4 To xlig_nbre_bis 'Boucle principale


    For xprono = 2 To 9
        For xarrive = 11 To 15
            If Feuil1.Cells(xlig_en_cours, xprono).Value = Feuil1.Cells(xlig_en_cours, xarrive).Value Then
               Feuil1.Cells(xlig_en_cours, xpos).Value = xarrive 'MsgBox ("Trouvé " & xarrive)
            End If
               xpos = xpos + 1
           
        Next xarrive
   
    Next xprono
Next xlig_en_cours

End Sub
----------