Erreur 438

Erreur 438 - VBA

Bonjour,

j'ai réalisé ce code et l'erreur 438 s'affiche sur les lignes en gras :

Code:

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
27
28
29
30
31
32
Sub test_copy()

Dim p As Integer

p = 13

    'En tête cde

    Feuil5.Cells(1, 3) = Feuil4.Cells(5, 2)
    Feuil5.Cells(1, 5) = Application.WorkDay(today, 2, 0)
    
While Feuil1.Cells(p, 1) <> ""

    'Ligne cde
    
    If p <> 13 Then
        Feuil6.Rows(p - 13).Copy
        Feuil6.Cells(p - 12, 1).Select
        ActiveSheet.Paste
    End If
    
    Feuil6.Cells(p - 12, 3) = Feuil4.Cells(5, 2)
    Feuil6.Cells(p - 12, 4) = p - 12
    Feuil6.Cells(p - 12, 5) = Feuil1(p, 2)
    Feuil6.Cells(p - 12, 6) = Feuil1(p, 3)
    Feuil6.Cells(p - 12, 8) = Feuil1(p, 1)
    
    p = p + 1
    
Wend
 
End Sub

Aurez-vous une solution pour annulé cette erreur s'il vous plait

Bonjour
Quel pourrait bien être le sens de

Code:

Feuil1(x, y)

?
Je me demande bien ...

Bonjour Unparia,

le sens de cette partie du code permet que la cellule de la feuille 6 prenne la valeur de la cellule de la feuille 1.

Je viens de me rendre compte du problème que je rencontre. J'ai oublié le "Cells"

Feuil1.Cells(x, y)

Je te remercie de ta réponse Unparia