Macro pour journal de caisse

Private Sub Valider_le_ticket()
Dim i As Integer

' Classement du mode de reglement
With Sheets("Journal de caisse")
.Unprotect "12"

Ligne = .Columns(2).Find(Date, , , , xlByColumns, xlPrevious).Row
If Espece = True And TextBox2.Value <> 0 Then .Range("I" & Ligne) = .Range("I" & Ligne) + Range("H25")
If Cartebancaire = True And TextBox2.Value <> 0 Then .Range("J" & Ligne) = .Range("J" & Ligne) + Range("H25")
If cheque = True And TextBox2.Value <> 0 Then .Range("K" & Ligne) = .Range("K" & Ligne) + Range("H25")

    
'Classe presta/vente/quantité dans le journal des ventes

If Range("H9") <> 0 Then .Range("D" & Ligne) = .Range("D" & Ligne) + Range("H9")
If Range("H5") <> 0 Then .Range("F" & Ligne) = .Range("F" & Ligne) + Range("H5")
If Range("H13") <> 0 Then .Range("G" & Ligne) = .Range("G" & Ligne) + Range("H13")
If Range("H18") <> 0 Then .Range("E" & Ligne) = .Range("E" & Ligne) + Range("H18")
.Protect Password:="12"
End With
' Classement dans fichier stock
With Sheets("Fournisseur & Stock")
.Unprotect "12"

For n = 6 To 33
If Range("E" & n) <> 0 Then .Range("C" & n - 1) = .Range("C" & n - 1) - Range("E" & n)


Next
End With
' Classement dans suivi ventes
With Sheets("Suivi ventes")
.Unprotect "12"
.Activate
i = Sheets("Suivi ventes").Range("I" & Rows.Count).End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau VIDE

'Copie les formules de la ligne de dessus
   
'presta
If Sheets("CAISSE").Range("E4") <> 0 Then
.Range("B" & i) = Range("H1")
.Range("I" & i) = (TextBox4)
.Range("F" & i) = Range("E4")
.Range("E" & i) = "Prestation"
.Range("G" & i) = Range("F4")
 End If

'Vente accessoires
For n = 6 To 33


        
If Sheets("CAISSE").Range("E" & n) <> 0 Then
.Range("A" & i - 1 & ":L" & i - 1).Copy
    
.Range("A" & i & ":L" & i).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
i = Sheets("Suivi ventes").Range("I" & Rows.Count).End(xlUp).Row + 1
.Range("B" & i) = Sheets("CAISSE").Range("H1")
.Range("I" & i) = (TextBox4)
.Range("F" & i) = Sheets("CAISSE").Range("E" & n)
.Range("G" & i) = Sheets("CAISSE").Range("F" & n)
.Range("D" & i) = Sheets("CAISSE").Range("B" & n)

End If
Next
.Protect Password:="12"
End With
'Initialise ticket
With Sheets("CAISSE")
.Unprotect "12"
.Activate
.Range("E4:F4").Select
    Selection.ClearContents
.Range("E6:F8").Select
    Selection.ClearContents
.Range("E10:F10").Select
    Selection.ClearContents
.Range("E12:F20").Select
    Selection.ClearContents
.Range("E22:F30").Select
    Selection.ClearContents
.Range("E32:F33").Select
    Selection.ClearContents
      
   .Range("E4").Select
   .Protect Password:="12"
End With
Unload Me 'efface et ferme USF

' Classement dans suivi ventes
With Sheets("Suivi ventes")
.Activate

i = Sheets("Suivi ventes").Range("I" & Rows.Count).End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau VIDE


   
'presta
If Sheets("CAISSE").Range("E4") <> 0 Then

.Range("C3" & ":L3").Copy
i = Sheets("Suivi ventes").Range("I" & Rows.Count).End(xlUp).Row + 1
.Range("C" & i & ":L" & i).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

.Range("B" & i) = Sheets("CAISSE").Range("H1")
.Range("I" & i) = (TextBox4)
.Range("F" & i) = Sheets("CAISSE").Range("E4")
.Range("E" & i) = "Prestation"
.Range("G" & i) = Sheets("CAISSE").Range("F4")
 
 End If

'Vente accessoires
For n = 6 To 33
        
If Sheets("CAISSE").Range("E" & n) <> 0 Then

'Copie les formules de la ligne de dessus

i = i - 6 + n

.Range("C3" & ":L3").Copy
i = Sheets("Suivi ventes").Range("I" & Rows.Count).End(xlUp).Row + 1
.Range("C" & i & ":L" & i).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False


i = Sheets("Suivi ventes").Range("I" & Rows.Count).End(xlUp).Row



'C'EST ICI AU DESSUS QUE J'AI RETIRÉ LE +1




.Range("B" & i) = Sheets("CAISSE").Range("H1")
.Range("I" & i) = (TextBox4)
.Range("F" & i) = Sheets("CAISSE").Range("E" & n)
.Range("G" & i) = Sheets("CAISSE").Range("F" & n)
.Range("D" & i) = Sheets("CAISSE").Range("B" & n)

End If
Next

End With
'Initialise ticket
With Sheets("CAISSE")

.Activate

For c = 4 To 33

Sheets("CAISSE").Range("E" & c & ":F" & c).Select
    Selection.ClearContents
Next
   .Range("E4").Select
   
End With
Unload Me 'efface et ferme USF

End Sub