Sub Copyrenameworksheet()
Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
nom = Sheets("CARTE VIERGE").Range("C2").Value
Sheets("CARTE VIERGE").Range("A1:M30").SpecialCells(xlVisible).Copy
For i = 2 To Worksheets.Count
Worksheets(i).Activate
If ActiveSheet.Name = nom Then
Worksheets(nom).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
Exit Sub
End If
Next
Sheets("CARTE VIERGE").Copy After:=Worksheets(Sheets.Count)
If wh.Range("C2").Value <> "" Then
ActiveSheet.Name = wh.Range("C2").Value
End If
wh.Activate
End Sub
re,
quand je je refais une feuille et je veux l'insérer , elle ne se met pas à la suite mais se superpose avec l'autre....:-(
For i = 2 To Worksheets.Count
Worksheets(i).Activate
If ActiveSheet.Name = nom Then
Worksheets(nom).Range("A" & Rows.Count).End(xlUp).Offset(2).PasteSpecial Paste:=xlPasteFormats
Worksheets(nom).Range("A" & Rows.Count).End(xlUp).Offset(2).PasteSpecial
Exit Sub
End If
Next