Merci Beaucoup pour éclaircissement , pour le moment le code fonctionne super bien sauf que j'ai des données qui sont situés sur ''A1:H1'' j'aimerais qu'ils seraint copié dans les autres copies aussi ,
j'ai essayé de modifié cette ligne de code
Set plg = sh.Range("A1:T" & Dlg)
mais ça m'a copié seulement ces données la :/
Sub creation_fichiers()
Dim i As Integer
Dim sh, Dlg, plg
Dim Nomfich$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set sh = Sheets(1)
Dlg = sh.Cells(Rows.Count, 1).End(xlUp).Row
Set plg = sh.Range("A1:T1" & "A1:T1" & Dlg)
sh.Range("T6:T" & Dlg).Copy sh.[AA1]
sh.Columns("AA").RemoveDuplicates Columns:=Array(1), Header:=xlYes
sh.[AB1] = sh.[T5]
For i = 2 To sh.Cells(Rows.Count, "AA").End(xlUp).Row
Workbooks.Add
sh.[AB2] = sh.Range("AA" & i)
plg.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=sh.Range("AB1:AB2"), CopyToRange:=ActiveWorkbook.Sheets(1).Range("A1:T1" & "A1:T1")
Nomfich = (sh.Range("AA" & i)) & ("- Actings, Assignments") & ".xls"
Nomfich = Replace(Nomfich, "/", "")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Nomfich, FileFormat:=xlExcel8
ActiveWorkbook.Close False
Next i
sh.[AA:AC].ClearContents
MsgBox (" Vos fichiers ont été bien traités avec succès ")
End Sub