pas bien regardé ta demande
essaie ainsi
Sub deb()
With Sheets("data")
n = 1
While .Cells(2, n) <> ""
n = n + 1
Wend
nbcol = n - 4 - 1
End With
With Sheets("Suivi")
For k = 6 To 5 + nbcol
.Cells(6, k) = Sheets("data").Cells(2, k - 1).Value
Next
n = 1
While .Cells(6 + n, 5) <> ""
For k = 6 To 5 + nbcol
.Cells(6 + n, k) = .Cells(6 + n, 5).FormulaR1C1
Next
n = n + 1
Wend
End With
End Sub