Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub G_795_Aoustin_2000kg()
    
    Application.Run "'calcul gomme4,0-2007.xls'!control"
    Application.Run "'calcul gomme4,0-2007.xls'!Module2.production_suivante"
    
    Range("z2:Ad14").Copy
    ActiveSheet.Paste
    Cells(ActiveCell.Row + 5, ActiveCell.Column).Select
    
    If Selection.Column = Columns("I").Column Then
Lig = Selection.Row - 5
For X = 0 To 4
If Range("E" & Lig).Offset(X, 0) <> 1 Then Exit Sub
Next X
'on vérifie la présence des 1, sinon on sort
For X = 0 To 4
Range("E" & Lig).Offset(X, 0) = 2
'On affecte 2 à la colonne E

Next X
End If

Joute = Selection.Row
ThisWorkbook.Sheets("Programme Gommes").RangeRange("J" & Joute) = ThisWorkbook.Sheets("Programme Gommes").Range("AB6")

End Sub

En rouge est le code que je me sert pour faire une copie
qd je lance ma macro elle remplis des cases et je voudrais rajouter dans une case ou je copie une precision que j'ai sur la meme feuille mais dans une autre case

alors je recopie la cellule AB6 dans la colonne J a la ligne ou je suis
ma recopie s'effectue et une erreur s'affiche apres

"prorpiete ou methode non gere par cette objet"

et la je ne sais pas trop comment faire si un coup de main pouvait etre possible merci