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
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