Private Sub CommandButton2_Click()
Dim L As Integer, SLIT As wORKSheet, SSAV As WorkSheet
If MsgBox("Confirmez-vous l’insertion de ce nouveau litige ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
Set SLIT = ThisWorkbook.Sheets("Litige")
With SLIT
L = .Range("a65536").End(xlUp).Row + 1
.Range("A" & L).Value = TextBox9
.Range("B" & L).Value = TextBox2
.Range("C" & L).Value = TextBox4
.Range("D" & L).Value = TextBox8
.Range("E" & L).Value = TextBox12
.Range("F" & L).Value = TextBox11
.Range("D" & L).Value = TextBox13
End With
Set SSAV = ThisWorkbook.Sheets("FICHE SAV")
With SSAV
.Range("F17").Value = TextBox7
.Range("F18").Value = TextBox1
.Range("F19").Value = TextBox9
.Range("D34").Value = TextBox2
.Range("D35").Value = TextBox3
.Range("D36").Value = TextBox4
.Range("E36").Value = TextBox8
.Range("D38").Value = TextBox5
.Range("D39").Value = TextBox6
End With
Set SLIT = Nothing
Set SSAV = Nothing
End If
End Sub