Private Sub CommandButton2_Click()
lrw = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row
If TextBox2 = "" Or TextBox4 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or TextBox12 = "" < 0 Then
MsgBox "Saisie incomplète !Merci de remplir les Champs vides"
Exit Sub
End If
For j = 1 To 38
Sheets(2).Cells(lrw + 1, j) = Controls("TextBox" & j).Text
Next j
For i = 1 To 38
Controls("TextBox" & i).Text = ""
Next i
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(2).Cells(lrw + 1, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1
TextBox1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A2:A5000")) + 1
TextBox2.SetFocus
ActiveWorkbook.Save
SavePicture UserForm1.Image2.Picture, "f:\Activation\photos\" & Me.TextBox1 & ".jpg"
Image2.Picture = LoadPicture("")
Macro1
Set Img = docWord.Bookmarks("OLE_LINK1").Range.InlineShapes.AddPicture("f:\Activation\photos\" & Me.TextBox1 & ".jpg", False, True)
End Sub