Bonjour,

Dans ma feuille 6 je souhaiterai que lorsque dans la feuille 1 il continue à y avoir des lignes; la ligne de la feuille 6 soit copier puis coller en dessous pour que les valeurs soient identiques. Et celles qui devront changer changeront avec la suite du code.

Mon code le voici :

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
  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.Cells(p - 13).Select
        Feuil6.Rows(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.Cells(p, 2)
    Feuil6.Cells(p - 12, 6) = Feuil1.Cells(p, 3)
    Feuil6.Cells(p - 12, 8) = Feuil1.Cells(p, 1)
    
    p = p + 1

Wend
C'est ma parti IF qui ne fonctionne pas :/

EN vous remerciant pour votre aide.