Voilà ! Cela a un peu fondu par la même occasion !
Sub NOUVEAU()
Dim TblS(13), i%
With ActiveSheet
For i = 0 To 13
TblS(i) = .Cells(i * 2 + 5, 3).Value2
Next i
End With
With Worksheets("Tableau Récapitulatif")
.Range("A2:N2").Insert xlShiftDown, xlFormatFromRightOrBelow
.Range("A2:N2").Value = TblS
End With
ANNULER
End Sub
Sub ANNULER()
With ActiveSheet
.Range("C5:C31").ClearContents
.Range("C5").Select
End With
End Sub
Et ce sera un peu plus rapide... Si tu veux quelques explications, demande ce que tu ne comprends pas...
On utilise un tableau pour prélever les données (en parcourant la plage de saisie au moyen d'une boucle.
L'utilisation de Value2 sert à éviter tout problème d'inversion mois/ jour pour les dates (il y en a une).
L'insertion de ligne se fait en prenant le format de la ligne qui suit plutôt que celle qui précède...
Et l'affectation se fait en une fois pour l'ensemble de la plage (on y affecte le tableau).
Ainsi plus de copier-coller et cela sera plus rapide (l'enregistreur ne sait pas faire... )
Cordialement.