Ajouter une colonne dans chaque onglet

Bonjour, ayant été très gentiment aidé hier par un membre de ce forum, je me retourne vers vous !

En fait j'ai un code qui génère des onglets automatiquement et j'aimerai pouvoir insérer une ligne de code qui permettrait de rajouter dans chaque onglet une colonne "Commentaires" (qui sera la colonne K)

Voici mon code,

Sub OngletsAUTO()
    derLn = Range("J" & Rows.Count).End(xlUp).Row
    Set docDep = ActiveSheet
    For Ln = 6 To derLn
        flag = 0
        For Each f In Worksheets
            If Cells(Ln, "J").Value = f.Name Then
                Lgn = f.Range("J" & Rows.Count).End(xlUp)(2).Row
                docDep.Rows(Ln & ":" & Ln).Copy f.Range("A" & Lgn)
                flag = 1
            End If
            ActiveSheet.Range("K1").Select
            ActiveCell.FormulaR1C1 = "Commentaires"
        Next f
        If flag = 0 Then
            Sheets.Add After:=ActiveSheet
            ActiveSheet.Name = docDep.Cells(Ln, "J").Value
            docDep.Rows("5:5").Copy Range("A1")
            docDep.Rows(Ln & ":" & Ln).Copy Range("A2")
            docDep.Activate

        End If

    Next Ln
End Sub

Merci à vous si vous pouvez m'aider !

Bonjour

Essaie plutot ton code comme ceci :

Sub OngletsAUTO()
Dim derln As Integer, ln As Integer, lgn As Integer
Dim flag As Boolean
Dim f
Dim docdep As Object

Set docdep = ActiveSheet
derln = docdep.Range("J" & docdep.Rows.Count).End(xlUp).Row
For ln = 6 To derln
        flag = 0
        For Each f In Worksheets
            If Cells(ln, "J").Value = f.Name Then
                lgn = f.Range("J" & Rows.Count).End(xlUp)(2).Row
                docdep.Rows(ln & ":" & ln).Copy f.Range("A" & lgn)
                flag = 1
            End If
            'ActiveSheet.Range("K1") = "Commentaires"
        Next f
        If flag = 0 Then
            Sheets.Add After:=ActiveSheet
            With ActiveSheet
                .Name = docdep.Cells(ln, "J").Value
                docdep.Rows("5:5").Copy .Range("A1")
                docdep.Rows(ln & ":" & ln).Copy .Range("A2")
                .Range("K1") = "Commentaires"
            'docDep.Activate
            End With
        End If

    Next ln
End Sub

Si ok lors de ta réponse, clique sur le V vert à coté du bouton EDITER pour cloturer le fil.

Merci ça fonctionne ! Et du coup pour définir les largeurs de colonne je met aussi le code à cet endroit ?

Re

Et du coup pour définir les largeurs de colonne je met aussi le code à cet endroit

Oups tu as cloturé le fil alors que tu as encore une question, je vois

Sans voir le fichier, tu peux par exemple essayer ce code, à placer juste entre END SUB et NEXT ln

Cells.Columns.AutoFit

Crdlt