'définition des dates de la semaine Rep
Dim c As Range, i0 As Integer
Dim datedeb As Range
'"A3" correspond à ma première cellule du fichier 2 ou je veux inscrire ma date de mon fichier 1
Set c = Range("A3")
'datedeb est définie comme la première cellule sous mon premier identifiant firstsemAddress (dans l'exemple: PT3 donne PT4)
'=> ca bug ici
Set datedeb=firstsemAddress.Offset(1,0)
'Je crée une boucle pour que mes cellules A3, B3, etc... prenne les valeurs des cellules datedeb (PT4, PU4, etc...)
For i0 = 1 To 7
c = datedeb.offset(0, i0-1).value
Set c = c.Offset(0, 1)
Next i0