Boucle sur plusieurs feuilles EXCEL

Sub cartman()
j = 2
For i = 1 To Sheets.Count
    Sheets(i).Select
    If Sheets(i).Name <> "recap total" Then
        For x = 3 To Range("B65536").End(xlUp).Row - 1
            Sheets("recap total").Cells(j, 1) = Sheets(i).Name
            Sheets("recap total").Cells(j, 2) = Trim(Left(Trim(Cells(x, 2)), 6))
            Sheets("recap total").Cells(j, 3) = Trim(Mid(Trim(Cells(x, 2)), 7))
            Sheets("recap total").Cells(j, 4) = Cells(x, 3)
            Sheets("recap total").Cells(j, 5) = Cells(x, 4)
            Sheets("recap total").Cells(j, 6) = Cells(x, 5)
            j = j + 1
        Next x
    End If
Next i
End Sub

Sub cartman()
'j va etre la variable pour savoir a quel ligne on en est dans la feuille recap, savoir quel ligne alimenter !!!
j = 2
'on va boucler sur les onglets de notre fichier
For i = 1 To Sheets.Count
'une fois la feuille numéro i prise , on se place dessus en la selectionnant (.select)
    Sheets(i).Select
    'on regarde si on a pas pris la feuille recap qui elle dois juste etre alimenter
    If Sheets(i).Name <> "recap total" Then
    'on est pas sur la feuille recap ca veut dire que la on doit recupéré les donné de la feuille selectionner
    'on va parcourire la feuille de la ligne 3 a la derniere ligne - 1,car ta derniere ligne est chelou !
        For x = 3 To Range("B65536").End(xlUp).Row - 1
            'donc on va mettre dans la colonne 1 et sur la ligne j de la feuille recap le nom de la feuille que l on traite
            Sheets("recap total").Cells(j, 1) = Sheets(i).Name
            'ici trim ca sert a enlever les espaces en debut et fin de mots
            'left ca ser a prendre les 6 premiere caracteres !!
            Sheets("recap total").Cells(j, 2) = Trim(Left(Trim(Cells(x, 2)), 6))
            'ici avec mid on va prendre les caractere a partir du 7 eme caractere donc apres les 6 chiffre et l espace !!
            Sheets("recap total").Cells(j, 3) = Trim(Mid(Trim(Cells(x, 2)), 7))
            'ensuit on récupere les autres colonne!!
            Sheets("recap total").Cells(j, 4) = Cells(x, 3)
            Sheets("recap total").Cells(j, 5) = Cells(x, 4)
            Sheets("recap total").Cells(j, 6) = Cells(x, 5)
            'une fois tout cela fais on ajout 1 a notre j pour que la prochaine fois il aille a la ligne suivante pour alimenter notre feuille recap
            j = j + 1
        Next x
    End If
Next i
End Sub