Private Sub CommandButton3_Click()
Dim Cb As Integer
If MsgBox("Confirmez-vous la supression de ce brut?", vbYesNo, "confirmation de supression ?") = vbYes Then
Rows([G2.G1048576].Find(ComboBox1.Value).Row).EntireRow.Delete
Unload Me
UserForm2.Show
End If
End Sub