Private Sub CommandButton2_Click()
Dim Lig As Byte, ColNum As Byte, ColText As String
Lig = ComboBox1.Value + 1 '1 devient 2
ColNum = Asc(ComboBox2.Value)
ColText = Chr(ColNum + 1) 'A devient B
If IsNumeric(TextBox1.Value) Then
Range(ColText & Lig) = Range(ColText & Lig) + TextBox1.Value
Else
TextBox1 = 'Num Only'
End If
End Sub