somme As Double
Dim i As Integer
textbox151 = ''
For i = 261 To 276
somme = somme + Controls('TextBox' & i)
Next i
textbox151 = somme
Dim i As Integer
Dim somme As Double
For i = 261 To 276
Controls('TextBox' & i) = Replace(Controls('TextBox' & i), '.', ',')
If Controls('TextBox' & i) <> '' And IsNumeric(Controls('TextBox' & i)) Then
somme = Controls('TextBox' & i) + somme
End If
Next i
TextBox151 = somme
End Sub