Sub Macro1()
'
' Macro1 Macro
' dupliquer onglet
'
Sub TestAjoutFeuilles()
'
For NbO = 168 to 174 Step1
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "Sem " & CInt(Mid(ActiveSheet.Name, 2, "167 ")) + 1
Range ("A6").Value = NbO
Next Nbo
End Sub