Private Sub Insertion_Click()
' Récupère les infos de la ligne sélectionnée pour les insérer dans les champs correspondants
Application.DisplayAlerts = False
Selection.Copy
If Not Application.ActiveCell.Column = '1' Then
GoTo zero
End If
On Error GoTo zero
UserForm3.Focus.Text = Selection
UserForm3.Nom.Text = ActiveCell.Offset(0, 1).Value
UserForm3.Fournisseur.Text = ActiveCell.Offset(0, 7).Value
UserForm3.Dimension.Text = ActiveCell.Offset(0, 2).Value
UserForm3.Dimension2.Text = ActiveCell.Offset(0, 3).Value
UserForm3.Dimension3.Text = ActiveCell.Offset(0, 4).Value
UserForm3.Dimension4.Text = ActiveCell.Offset(0, 5).Value
Range('B3').Select
Selection.AutoFilter field:=2
Selection.AutoFilter field:=1
Sheets(tampon2.Text).Select
SelectFiltre.Visible = True
Insertion.Visible = False
Retour.Visible = False
UserForm3.Show
Application.DisplayAlerts = True
Exit Sub
zero:
' Affiche la boite de dialogue erreur en cas de mauvaise sélection
Insertion.Visible = True
Retour.Visible = True
UserForm2.Label1.Caption = 'Positionnez vous sur la référence'
UserForm2.Show
Exit Sub
End Sub