Private Sub CommandButton1_Click()
'declaration des variables
Dim NomFeuille As String
Dim C As Range
Dim Desti
Dim f As Worksheet
Dim Ligne As Variant
Dim selstr As String
Application.ScreenUpdating = False
NomFeuille = CdeAuto.CdeFournisseur.Value
For Each f In Worksheets
If f.Name = NomFeuille Then
MsgBox ('Une feuille nommée - ' & NomFeuille & ' - existe déjà')
Exit Sub
End If
Next
Sheets('COMMANDE').Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
Range('C3') = NomFeuille
Sheets('LIBRAIRIE').Select
Cells.Select
Selection.Sort Key1:=Range('F2'), Order1:=xlAscending, Key2:=Range('H2') _
, Order2:=xlAscending, Key3:=Range('B2'), Order3:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range('A1').Select
Sheets(NomFeuille).Select
Application.ScreenUpdating = True
Dim i As Byte
Application.Goto Sheets('RESULTAT').Range('A1') ' RESULTAT -> Feuille de données à extraire
For i = 1 To Range('C65536').End(xlUp).Row
If Cells(i, 3).Value = NomFeuille Then ' NomFeuille -> Valeur de la ComboBox
Range('A' & i & ':B' & i & ',D' & i).Select
Selection.Copy
Sheets(NomFeuille).Select
Range('A9').Select
If Cells(10, 1).Value = '' Then
Cells(10, 1).Select
ActiveSheet.Paste
Sheets(NomFeuille).Select
Else
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Sheets(NomFeuille).Select
End If
End If
Next i
End Sub