Autres formulaire avec plusieurs userform

Private Sub CommandButton1_Click()
Dim L As Integer
With Sheets("RP")
    L = .[A65000].End(xlUp).Row + 1 'POUR PLACER LE NOUVEL ENREGISTREMENT 0 LA PREMIERE LIGNE DE TABLEAU NON VIDE
    .Range("A" & L).Value = ComboBox2.Value
    .Range("B" & L).Value = TextBox18.Value
    .Range("C" & L).Value = TextBox17.Value
    .Range("E" & L).Value = TextBox6.Value
    .Range("F" & L).Value = TextBox12.Value
    .Range("G" & L).Value = TextBox13.Value
    .Range("H" & L).Value = TextBox9.Value
End With
Unload Me 'ou Unload UserForm1
UserForm4.Show
End Sub

Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("CONFIRMEZ-VOUS L'INSCRIPTION", vbYesNo, "DEMANDE DE CONFIMATION D'AJOUT") = vbYes Then
    With Sheets("Cotipack")
        L = .[A65000].End(xlUp).Row + 1
        .Range("A" & L).Value = ComboBox13.Value
        .Range("B" & L).Value = TextBox1.Value
        .Range("C" & L).Value = TextBox2.Value
        .Range("J" & L).Value = ComboBox6.Value
        .Range("D" & L).Value = ComboBox9.Value
        .Range("E" & L).Value = ComboBox10.Value
        .Range("F" & L).Value = ComboBox11.Value
        .Range("G" & L).Value = ComboBox12.Value
    End With
End If
End Sub

 With Sheets("Cotipack")
    L = .[A65000].End(xlUp).Row + 1
    .Range("A" & L).Value = ComboBox13.Value
End With

signifie :
L = Sheets("Cotipack").[A65000].End(xlUp).Row + 1
Sheets("Cotipack").Range("A" & L).Value = ComboBox13.Value