Re : Macro qui importe données dans nouvel onglet
bonsoir Sly
une solution plus complète
Sub CopyPaste()
Dim Ws As Worksheet, NewWs As Worksheet, C As Byte
'bebere
Set NewWs = Sheets.Add
NewWs.Move After:=Worksheets(Worksheets.Count)
Sheets("Déclaration").Cells.Copy
With NewWs
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("A1").Select
End With
For Each Ws In Worksheets
If Left(Ws.Name, 2) = "CL" Then C = C + 1'compte
Next Ws
C = C + 1
NewWs.Name = "CL" & C
End Sub
à bientôt