Triple boucle for .. next

Bonjour à tous,

J'ai ici une triple boucle avec la 2-ème boucle/variable 'c' qui me pose problème.

Quand la macro tourne 'i' prends +1 en même temps que 'c' donc je ne vérifie pas tous les 'c' avant de passer au 'i' suivant.

Puis si le IF de la boucle 'c' est vrai, alors faire tous les 'y'. (le 'c' me permet de vérifier l'appartenance à une liste)

Quand j'avais que 'i' et 'y' en boucle ça fonctionné très bien. J'ai testé avec For et Do while mais j'ai le même résultat.

Que me manque-t-il ?

Merci d'avance pour votre aide !! :) à bientôt

Private Sub Import_OP()

'Call 2

    Dim compt As Integer, comptBdd As Integer, comptacc As Integer
    Dim i As Integer, y As Integer, c As Integer
    Dim concaBdd As String, conca As String

    Set FeuilBdd = ThisWorkbook.Sheets("#RECH-REPA")
    Set F_Cible = ThisWorkbook.Sheets("Suivi Cmd")
    Set Acc = ThisWorkbook.Sheets("Accueil")

    F_Cible.Activate

    'compte ligne
    comptBdd = FeuilBdd.Range("J1").End(xlDown).Row

    'Ajout & update
    c = 41

    For i = 2 To comptBdd

        concaBdd = (FeuilBdd.Range("J" & i).Value & FeuilBdd.Range("M" & i).Value)
        compt = F_Cible.Range("F3").End(xlDown).Row
        comptacc = Acc.Range("c40").End(xlDown).Row

       Do While c = comptacc 'For c = 41 To comptacc
       c = c + 1

            If FeuilBdd.Range("D" & i) = Acc.Range("D" & c) And Acc.Range("C" & c) = Acc.Range("D33") Then

                For y = 5 To compt
                    conca = (F_Cible.Range("F" & y).Value & F_Cible.Range("G" & y).Value)

                    If concaBdd = conca Then
                        F_Cible.Range("B" & y).Value = FeuilBdd.Range("D" & i).Value 'Code Client
                        F_Cible.Range("C" & y).Value = FeuilBdd.Range("E" & i).Value 'Nom Client
                          ' Je vous passe les détails ... 
GoTo pass
                    End If
                Next

            'Nouvelle ligne en bleu

                        F_Cible.Range("B" & compt + 1).Value = FeuilBdd.Range("D" & i).Value 'Code Client
                         ' Je vous passe les détails ... 
                        F_Cible.Range("F" & compt + 1 & ":F" & compt + 1).Interior.Color = RGB(180, 212, 250) 'Nvl ligne en bleu Col F

pass:
            End If
      Loop '  Next
    Next

End Sub