Changement automatique plages cellues

Dim R As Range
Dim NoMake As Boolean

Private Sub CommandButton1_Click()
Dim Tablo
If R Is Nothing Then Set R = Range("j18")
    ActiveSheet.Range(R.Address).End(xlUp).Offset(1, 0).Select
    Tablo = Split(UserForm1.TextBox1.Text, Chr(13) & Chr(10))
    For i = LBound(Tablo) To UBound(Tablo)
       ActiveSheet.Range(R.Address).End(xlUp).Offset(1, 0).Value = Tablo(i)
    Next i
       ActiveSheet.Range(R.Address).End(xlUp).Offset(0, 1).Value = TextBox2.Value
    End Sub

Private Sub CommandButton2_Click()
Dim lig&
NoMake = True
TextBox1.Text = ""
TextBox2.Text = ""
If Not R Is Nothing Then
  lig& = R.Row
  Select Case lig&
    Case 18
      Set R = Range("j33")
    Case 33
      Set R = Range("j50")
  End Select
End If
End Sub

Private Sub TextBox1_Change()
Dim Tablo, Pos As Long, Res As String
If NoMake Then
  NoMake = False
  Exit Sub
End If
    Tablo = Split(UserForm1.TextBox1.Text, Chr(13) & Chr(10))
    If Len(Tablo(UBound(Tablo))) > 10 Then
        Pos = InStrRev(Tablo(UBound(Tablo)), " ")
        If Pos > 0 Then
            Mid(Tablo(UBound(Tablo)), Pos, 1) = Chr(13) & Chr(10)
        End If
    End If
    Res = ""
    For i = LBound(Tablo) To UBound(Tablo)
        Res = Res & Tablo(i) & IIf(i < UBound(Tablo), Chr(13) & Chr(10), "")
    Next i
    UserForm1.TextBox1.Text = Res
End Sub

Dim lig As Long
Private Sub CommandButton1_Click()
Dim Tablo
With Sheets(ActiveSheet.Name)
    Tablo = Split(UserForm1.TextBox1.Text, Chr(13) & Chr(10))
    For i = LBound(Tablo) To UBound(Tablo)
       .Range("J" & lig).Value = Tablo(i)
        nuligne
    Next i
    
       '.Range("J" & dl1).Offset(0, 1).Value = TextBox2.Value

End With
    End Sub

Private Sub nuligne()
lig = lig + 1
If lig = 18 Then
lig = 21
ElseIf lig = 33 Then
lig = 37
End If
End Sub

Private Sub UserForm_Initialize()
lig = 7
End Sub