hi

here the following code

Private Sub Worksheet_Change(ByVal Target As Excel.Range
On Error GoTo trt_Error

Dim sValue As String, i As Long, j As Lon

If Not blnDeActivateChangeEvent The
blnDeActivateChangeEvent = Tru
If Not mdlScreen_Display.IsBuildingScreen The
' Gestion des modes particuliers pour les saisie
If Me.cbxRefreshOnComboChange.value The
If Target.Count = 1 The
' Remplace les Missings pas des
If Val(SYReplace(Cells(Target.Row, Target.Column).value, ",", ".")) = 0 The
Cells(Target.Row, Target.Column).value =
End I
inputValues = inputValues & ConvColToASCII(Target.Column) & Target.Row & "=" & Target.value & ";
Els
' Sélection multipl
For i = Target.Column To Target.Column + Target.Cells.Columns.Count -
For j = Target.Row To Target.Row + Target.Cells.Rows.Count -
' Remplace les Missings pas des
If Val(SYReplace(Cells(Target.Row, Target.Column).value, ",", ".")) = 0 And Not bMODE_DisableReplaceMissing The
Cells(j, i).value =
End I
inputValues = inputValues & ConvColToASCII(i) & j & "=" & Cells(j, i).value & ";
Nex
Nex
End I
Els
MsgBox "Input data cannot be saved when the auto-refresh is disabled." & vbCr
& "Enable auto-refresh before you enter your data.", vbCritical, "Unable to input data
End I
End I
blnDeActivateChangeEvent = Fals
End I

trt_Exit
Exit Su
trt_Error
Resume trt_Exit
End Su


An idea?