Private Sub CommandButton6_Click()
UserForm1.Show
End Sub
' Copier/Coller 1er Table vers Trie
Private Sub CommandButton1_Click()
With Sheets("Tables").[C4:D200]
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With
End Sub
' Copier/Coller 2éme Table vers Trie
Private Sub CommandButton2_Click()
With Sheets("Tables").[H4:I200]
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With
End Sub
' Copier/Coller 3éme Table vers Trie
Private Sub CommandButton3_Click()
With Sheets("Tables").[M4:N200]
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With
End Sub
' Copier/Coller 4éme Table vers Trie
Private Sub CommandButton4_Click()
With Sheets("Tables").[R4:S200]
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With
End Sub