Microsoft 365 copier/coller en fonction d'un résultat

Sub Transfert()
    Dim NoSem$, C%, L%
    On Error GoTo Fin                                               ' Utile si NoSem absent
    NoSem = "S" & Val(Right(Sheets("cab").Range("F4"), 2))          ' Construction du No de semaine
    C = Application.Match(NoSem, Sheets("données").Range("1:1"), 0) ' Où trouve t on le NoSem
    For L = 5 To 32                                                 ' Tranfert dse valeurs
        Sheets("données").Cells(L - 3, C) = Sheets("cab").Cells(L, "F")
    Next L
Fin:
End Sub