Problème d'incompatibilité de type

Bonjour, je viens à la recherche d'une aide précieuse.

Je vous post mon Code en dessous qui présente une incompatibilité de type (le problème viendrait de If Worksheets(5).Cells(j, i).Value = "AjouterIci" Then mais je n'en suis pas totalement sure). En vous remerciant:

Sub Ensemble()

Dim annee As Integer
resultat = InputBox("Texte ?", "Année?")
anne = CInt(resultat)
Call Ajout(anne)

End Sub

Sub Ajout(ByVal anne As Integer)

For i = 1 To 50
    For j = 1 To 50
        If Worksheets(5).Cells(j, i).Value = "AjouterIci" Then
            Worksheets(5).Cells(i, j).Select
        Worksheets(5).Range(ActiveCell, ActiveCell.Offset(120, 0)).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

            Exit For
            Exit For
        End If
    Next
Next
Selection.Item(1).Select

ActiveCell.Value = anne

ActiveCell.Offset(31, 0).Value = anne

ActiveCell.Offset(46, 0).Value = anne

ActiveCell.Offset(46, 0).Interior.ColorIndex = 27

ActiveCell.ColumnWidth = 15

End Sub

Bonjour et bienvenue sur le forum

Peut-on voir le fichier ?

Bye !

Voila le fichier. Ne faites pas attention à la partie intermédiaire, celle-ci est en cours d'élaboration.

L'instruction :

...
If Worksheets(5).Cells(j, i).Value = "AjouterIci" Then
...

met en cause la 5° feuille de ton classeur, ainsi que d'autres instructions.

Or, ce classeur n'a qu'une seule feuille. D'où le bug !

Remplace la par :

If Feuil5.Cells(j, i).Value = "AjouterIci" Then

ou encore par

sheets("Stockpicking classe d'indice").Cells(j, i).Value = "AjouterIci" Then

[/code]

OK ?

Bye !

Merci