Sub ColleEtSauveX()
Dim D_WKB As Workbook, Chemin As String, NFic As String
Dim S_WKB As Workbook: Set S_WKB = ThisWorkbook
Dim MaPlage As Range
'intialisation du numéro de poste à 0 pour etre sur de rentrer dans le while
Numposte = 0
While Numposte < 2 Or Numposte > 11
Numposte = CInt(InputBox("quel numéro de poste souhaitez vous enregisrer? entre 2 et 11"))
Wend
Chemin = S_WKB.Path
'on récupère le nom du fichier
NFic = S_WKB.Worksheets(1).Cells(2, (9 + (Numposte - 2) * 13)) & ".xls"
'on récupère le numéro de la première colonne du tableau à sauvegarder
ColDépart = 9 + (Numposte - 2) * 13
'à partir de la cellule contenant le nom du fichier à créer
Set MaPlage = S_WKB.Worksheets(1).Columns(ColDépart).Resize(, 12).Offset(0, -6)
first = MaPlage.Column
'MaPlage.Select
Application.ScreenUpdating = False
MaPlage.Copy
Set D_WKB = Workbooks.Add(xlWBATWorksheet)
With D_WKB.ActiveSheet
.Paste (.Columns(first))
With .UsedRange
.Value = .Value
End With
End With
Rows("1:4").Delete
Columns("A").Resize(, first - 1).Delete
Application.CutCopyMode = False
D_WKB.SaveAs Chemin & "\" & NFic
Application.ScreenUpdating = True
'cette partie est à modifier également pour que ca s'adapte en fonction du numéro de poste sélectionné
S_WKB.Sheets("Saisie").Range("F1,F2,D10,F10,H10,J10,L10,N10").ClearContents
S_WKB.Sheets("Saisie").Range("I2:L2").ClearContents
S_WKB.Sheets("Saisie").Range("D8:G8").ClearContents
S_WKB.Sheets("Saisie").Range("C9:G9").ClearContents
S_WKB.Sheets("Saisie").Range("I8:N8").ClearContents
S_WKB.Sheets("Saisie").Range("I9:N9").ClearContents
S_WKB.Sheets("Saisie").Range("C13:N63").ClearContents
End Sub