Re,
je veut que ce soit la 1ère ligne du tableau (donc celle qui appartient au numéro de référence 1) qui soit copié à chaque fois.
A tester....
Sub CCV()
Dim dl%, col, i%
With Sheets("Tableau")
col = Array(3, 4, 5, 8, 9, 10, 13, 14, 15, 18, 19, 20, 23, 24, 25, 28, 29, 30, 33, _
34, 35, 36, 39, 40, 41, 42, 45, 46, 47, 48, 51, 52, 53, 54, 55, 58, 59, 60, 61, 62, _
63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83)
With .ListObjects(1).ListColumns(2).DataBodyRange
On Error Resume Next
Set Rng = .SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not Rng Is Nothing Then dl = Rng.Row
End With
For i = 0 To UBound(col)
.Cells(dl, col(i)).Value = .Cells(9, col(i)).Value
Next i
End With
MsgBox "Opération effectuée"
End Sub
Cordialement,