Sub Importer()
Dim h As Long, plage As Range
Feuil3.Activate 'CodeName de la feuille de destination
h = Int(Val([K3]))
If h < 1 Or h > 70 Then _
MsgBox "Entrer un nombre entre 1 et 70 en K3...": Exit Sub
With Feuil1 'CodeName de la feuille 'reception'
Set plage = .[A1].CurrentRegion
plage.Sort .[A1], Header:=xlYes 'tri
End With
[7:76].Clear 'RAZ
plage.Rows(2).Resize(h).Copy [C7]
[B7] = 1
'---1ère colonne---
With [B7].Resize(h)
[C7].Resize(h).AutoFill .Resize(, 2), xlFillFormats
.NumberFormat = "0"
.DataSeries 'numérotation
End With
End Sub