Bonjour,

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

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
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