Bonjour,
Sub Insérer()
Dim i%
For i = 7 To 3 Step -1
Rows(i).Insert
Rows(i).Insert
Cells(i, 4) = Cells(i - 1, 6)
Cells(i - 1, 6).ClearContents
Next i
Cells((6 - 1) * 3, 1).Resize(, 7).Borders.Weight = xlThin
End Sub
Personne n'ayant été désigné pour lancer "automatiquement" la macro, ni à quel moment, ce sera donc toi !
Cordialement