Erreur dans un code

Bonjour

C'est un gestionner de stockages avec plusieurs usurform

1 magasin

2 visserrie

3 fonte........

avec des entrée , sortie de stock

j'ai erreur sur toutes les usurform

Sub ajouter_visserie()

'rechercher dans la feuil catalogue, le contenu de la feuil gestion rangé I72

Application.ScreenUpdating = False

Sheets("Catalogue").Select

Dim Cellule As Range

Set Cellule = Range("H:H").Find(what:=Sheets("Gestionnaire du magasin").Range("I72").Value, LookIn:=xlValues, lookat:=xlWhole)

If Not Cellule Is Nothing Then Cells(Cellule.Row, Cellule.Column).Select

ActiveCell.Select

ActiveCell = UserForm4.TextBox11.Value

'on ajoute à la commande ajout

ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) + UserForm4.TextBox2.Value

''''''''''''''''''''''''''on additionne chaque sortie du stock'''magasin''''''''''

ActiveCell.Offset(0, 4) = ActiveCell.Offset(0, 4) + UserForm4.TextBox4.Value ( j'ai l'erreur sur cette ligne Value et en jaune)

Sheets("gestionnaire du magasin").Select

Application.ScreenUpdating = True

MsgBox "Modification Effectuer!"

Unload UserForm4

End Sub

ps: je ne peut pas envoyer mon dossier il fais +2mo

merci

Bonjour,

ActiveCell.Offset(0, 4) = ActiveCell.Offset(0, 4) + Val(UserForm4.TextBox4.Value)
'ou
ActiveCell.Offset(0, 4) = ActiveCell.Offset(0, 4) + Cdec(UserForm4.TextBox4.Value)

merci d'insérer votre code avec la balise </>