Générer onglet unique

Coucou les copains,

Besoin de vos lumières

J'ai des noms de personnes en colonne E. Ils sont triés par ordre alphabétique. Lorsque je lance mon code, il va créer un nouvel onglet pour chaque nom et copier et coller les lignes où ce nom figure mais en se basant sur la colonne E. Or, une nouvelle colonne a été ajoutée en G. J'aimerais que le code ci-dessous copie les lignes où figurent les noms en E mais également qu'il check la colonne G et qu'il copie les lignes dans les onglets portant le même nom

Sorry c'est pas très français, si vous avez besoin d'un doc anonyme pour vous faire une meilleure idée, dites-le-moi et je vous fais ça.... peut-être que le code ci-dessous vous suffira, redites-moi et merci infiniment pour votre aide

Sub onglet()

'bouton onglet'

With Sheets("stats")

dl = .Cells(Rows.Count, 1).End(xlUp).Row

'dans le Feuil Stats, depuis la ligne 12'

For i = 12 To dl

Nom = .Cells(i, "E").Value

'prendre les valeurs de la colonne E, le nom des collaborateurs'

Set ws = newws(Nom)

dlws = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1

.Range(i & ":" & i).Copy ws.Cells(dlws, 1)

Next i

End With

End Sub

Function newws(Nom) As Object

Set ws = Nothing

On Error Resume Next

Set ws = Sheets(Nom)

On Error GoTo 0

If ws Is Nothing Then

'utilise le Feuil modèle pour créer un onglet avec les données et nomme l'onglet avec le nom du collaborateur'

Sheets("modèle").Copy after:=Sheets(Sheets.Count)

Set ws = ActiveSheet

ws.Name = Nom

End If

Set newws = ws

End Function