Microsoft 365 Remplir sur feuille de suivi avec une feuille de donnée d'entrée

Sub Transfert()
    Dim dl%, i%
    With Sheets("Fiche suivi")
        dl = .Range("B" & Rows.Count).End(xlUp).Row + 1
        For i = 2 To 6
            .Cells(dl, i) = Cells(i, "B"): Cells(i, "B") = ""
        Next i
        For i = 8 To 15
            .Cells(dl, i - 1) = Cells(i, "C"): Cells(i, "C") = ""
        Next i
    End With
End Sub

Sub Transfert()
    Dim dl%
    With Sheets("Fiche suivi")
        dl = .Range("B" & Rows.Count).End(xlUp).Row + 1
        .Range("B" & dl & ":" & "F" & dl) = Application.Transpose(Range("B2:B6"))
        .Range("G" & dl & ":" & "N" & dl) = Application.Transpose(Range("C8:C15"))
        Range("B2:D6").ClearContents: Range("C8:C15").ClearContents
    End With
End Sub