Un TextBox qui ne réponds plus

 Label18 = Ws.Cells(26, 5 + ComboBox4.ListIndex) & " €"

 TextBox4 = Ws.Cells(26, 5 + ComboBox4.ListIndex) & " €"

'*** MACRO POUR LES TEXTBOXS 2-3-4
Sub Macro(NumTB)
  Dim CB As Control, TB As Control, Ligne As Long, Valeur As Integer
  If Encours = True Then Exit Sub
     Encours = True
 
  If NumTB = 2 Then
    Ligne = 21                          'On se sert du n° de textbox passé en paramètre pour déterminer le n° de ligne
    Valeur = 228                        'On pourra se servir du test pour déterminer le label à utiliser
  ElseIf NumTB = 3 Then
    Valeur = 240
    Ligne = 22
  ElseIf NumTB = 4 Then
    Ligne = 26
    Valeur = 288
  End If
   
    Set CB = Me.Controls("ComboBox" & NumTB)         'On assigne une variable au textbox et au combobox à utiliser
    Set TB = Me.Controls("TextBox" & NumTB)
 
  If CB.ListIndex = -1 Then                          'TB et CB désignent donc les contrôles à utiliser
     TB.BackColor = vbRed                            'Mets Rouge fond TextBox2 si erreur
     MsgBox "Sélectionner un mois"
     TB = ""
   Else
     Ws.Cells(Ligne, 5 + CB.ListIndex) = Val(Replace(TB.Value, ",", "."))
     Controls("Label" & Valeur + 1 + CB.ListIndex) = Format(Ws.Cells(Ligne, 5 + CB.ListIndex), Euro)
    End If
 
'** ACTIONS variable des lignes 21-22-26
  For I = 1 To 12
      Controls("Label" & I + Valeur).Caption = Format(Ws.Cells(Ligne, I + 4), Euro)        'Label 228 à 240
 
   If Ws.Cells(Ligne, I + 4) < 0 Then
      Controls("Label" & I + Valeur).ForeColor = vbRed
     Else
      Controls("Label" & I + Valeur).ForeColor = vbWhite
   End If
 
  Next I
       TB.BackColor = vbGreen                        'Remets Vert fond TextBox2
       Encours = False
End Sub

'*** ### COMBOBOX(2)SELECTIONNE LE MOIS OU SERA COPIER LA VALEUR ENTRER DANS TEXTBOX(2)
Private Sub Combobox2_Click()
  If ComboBox2.ListIndex = -1 Then Exit Sub
  If LCase(Me.ComboBox2.Value) <> LCase(Format(Date, "mmmm")) Then     'Test si bon mois
  
         MsgBox "Mois non Valide"
         ComboBox2.ListIndex = -1                                      'On vide le Combobox
       Exit Sub
       End If
     TextBox2 = Ws.Cells(21, 5 + ComboBox2.ListIndex) & " €"
End Sub

'*** TEXTBOX(2)ON ENTRE UNE VALEUR DESTINATION DANS FEUILLE ZONE E21:P21 (CARSAT)
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
   If InStr("1234567890,-€", Chr(KeyAscii)) = 0 Then
      KeyAscii = 0
   End If
End Sub

Private Sub TextBox2_Change()
  Macro 2
End Sub

'*** ### COMBOBOX(3)SELECTIONNE LE MOIS OU SERA COPIER LA VALEUR ENTRER DANS TEXTBOX(3)
Private Sub Combobox3_Click()
  If ComboBox3.ListIndex = -1 Then Exit Sub
  If LCase(Me.ComboBox3.Value) <> LCase(Format(Date, "mmmm")) Then
  
         MsgBox "Mois non Valide"
         ComboBox3.ListIndex = -1
       Exit Sub
       End If
     TextBox3 = Ws.Cells(22, 5 + ComboBox3.ListIndex) & " €"
End Sub

'*** TEXTBOX(3)ON ENTRE UNE VALEUR DESTINATION DANS LA ZONE E22:P22 (MALAKOFF)
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
   If InStr("0123456789-,.", Chr(KeyAscii)) = 0 Then
      KeyAscii = 0
   End If
End Sub

Private Sub TextBox3_Change()
  Macro 3
End Sub

''''''''''''''''''''''''''
LE TEXTBOX4 N'ai nulle part ailleurs dans le programme juste a partir d'ici

'*** ### COMBOBOX(4)SELECTIONNE LE MOIS OU SERA COPIER LA VALEUR ENTRER DANS TEXTBOX(4)
Private Sub Combobox4_Click()
  If ComboBox4.ListIndex = -1 Then Exit Sub
  If LCase(Me.ComboBox4.Value) <> LCase(Format(Date, "mmmm")) Then
  
         MsgBox "Mois non Valide"
         ComboBox4.ListIndex = -1
       Exit Sub
       End If
'---------- Excel plante dès qu'il passe a la ligne ci-dessous
       TextBox4 = Ws.Cells(26, 5 + ComboBox4.ListIndex) & " €"
'----------------------------------------------
End Sub

'*** TEXTBOX(4)ON ENTRE UNE VALEUR DESTINATION DANS LA ZONE E26:P26
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
   If InStr("0123456789-,.", Chr(KeyAscii)) = 0 Then
      KeyAscii = 0
   End If
End Sub

Private Sub TextBox4_Change()
  Macro 4
End Sub