Mon code s'arrête après un Rows(i).insert

Public Sub OK()
Rows(48).Insert
Range("C49").Value = 2
Range("C50").Select
End Sub

Public Sub OK()
With ActiveSheet
  .Rows(48).Insert
  .Range("C49").Value = 2
  .Range("C50").Select
End With
End Sub

Option Explicit


Function CheckNumberInput(windowInput) As Boolean
  
  CheckNumberInput = False ' to set default value
  
  If Not IsNumeric(windowInput) Then
    MsgBox "The input is not a number"
    Add_Line_window.Show
    Exit Function
  End If
  
  If windowInput > 19 And windowInput < 50 Then
    CheckNumberInput = True ' if number between 20 and 49
  Else
    MsgBox "It's not possible to add a line at this line"
  End If

End Function


Sub Add_Line_Table(lineNumber As Long)

  ' Ligne de débogage pour vérifier la valeur de lineNumber :
  
  MsgBox "lineNumber = " & lineNumber: Exit Sub

  ' Attention : ci-dessous, remplacer les 2 noms par leur nom réel !

  With Workbooks("Nom du Classeur").Worksheets("Nom de la Feuille")

    .Unprotect
    
    .Rows(lineNumber).Insert
    
    .Cells(lineNumber, 3) = .Cells(lineNumber - 1, 3) + 1
    .Cells(lineNumber, 3).Select
    
    While .ActiveCell.Row <> 50
      .ActiveCell = .ActiveCell.Offset(-1, 0) + 1
      .ActiveCell.Offset(1, 0).Select
    Wend

    .Protect
  
  End With

End Sub


Private Sub Button_OK_Click()
  
  Dim numberLine As Long
  
  Add_Line_window.Hide
  
  ' Bizarre : d'où provient ce NumberOfLine_Input ?
  ' (il devra avoir une valeur entre 20 et 49)
  
  If CheckNumberInput(NumberOfLine_Input.Value) Then
    numberLine = CLng(NumberOfLine_Input.Value)
    Add_Line_Table numberLine
  End If

End Sub


Private Sub Button_Cancel_Click()
  Add_Line_window.Hide
End Sub

Sub MacroValeurCellule()

    cells(3,4).value = 4

End Sub

Sub MacroValeurCellule(feuille as Worksheet)

    feuille.cells(3,4).value = 4

End Sub