Sub mvtest()
Dim I As Byte
Dim B As Worksheet
Dim NF As Worksheet
I = 1
Set B = Worksheets("Base")
Sheets.Add After:=ActiveSheet
Set NF = ActiveSheet
NF.Name = "Nouvelle Feuille " & I
B.Columns("A:C").Copy NF.Range("A1") 'copie les colonnes A à C de l'onglet B dans la cellule A1 de l'onglet NF
End Sub