Sub Dupliquer()
Dim dLg As Long ' Variable pour stocker le dernière ligne remplie en colonne Q
Dim o As Object 'décalre la varaible o
Application.ScreenUpdating = False
With Sheets("Effectif")
dLg = .Range("A5").End(xlDown).Row
For Each cel In .Range("A5:A" & dLg)
Sheets("01530814").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = cel.Value
Set o = ActiveSheet
o.Range("B6").Value = cel.Value
o.Range("E6").Value = cel.Offset(0, 1).Value
o.Range("B5").Value = cel.Offset(0, 2).Value
o.Range("G5").Value = cel.Offset(0, 3).Value
o.Range("I5").Value = cel.Offset(0, 4).Value
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub