Re : etiquette x X + date du jour
Bonsoir ,
Voici en mettant la date en colonne C
Sub prepa_publi()
Dim Compteur As Double, i%, x%
Compteur = 1
With Feuil2
.Cells.ClearContents
For i = 2 To Feuil1.Cells(65000, 1).End(xlUp).Row
x = Feuil1.Cells(i, 2).Value - 1
If x = -1 Then GoTo 1
Feuil1.Range("A" & i & ":C" & i).Copy Destination:=.Range("A" & Compteur & ":C" & Compteur + x)
1 Compteur = Compteur + x + 1
Next i
.Cells.Columns.AutoFit
End With
End Sub