en fait je ne veux pas ajouter une feuille mais plutot ajouter copier une feuille
voici le code : tout fonctionne mon seul souci c'est lorsque je modifie le nom de l'ongler ca change pas automatiquement dans la feuil
Sub ajouterannée()
Dim sw As Worksheet
Set sw = ActiveSheet
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
With Worksheets("statistiques parametre") 'Nom de feuille à adapter
For i = .Range("D" & Rows.Count).End(xlUp).Row To 5 Step -1
If .Range("D" & i).Offset(1).Value Like "Concentration maximale(mg/L) " Then
ActiveSheet.Copy after:=Sheets(ThisWorkbook.Sheets.Count)
.Range("D" & i).Offset(1).EntireRow.Resize(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("C" & i + 1) = ActiveSheet.Name
.Range("D10:D11").Copy
With Worksheets("statistiques parametre")
Sheets("statistiques parametre").Range("D" & i + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Sheets.Add after:=Sheets(Sheets.Count)
End With
'ActiveSheet.Name = Sheet.Name.Range("D10:D11").Copy = .Range("D" & i)
End If
Next i
End With
Application.Calculation = xlAutomatic
'With Worksheets("statistiques parametre")
Application.ScreenUpdating = True