Salut VEVE et Arnaud,
Je viens juste dire que l'on peu effectuer la manipulation sans boucler :
If Range("A1") = "" Then
Range("A1") = "S01"
Else
With Cells(1, 53).End(xlToLeft)
If .Column < 52 Then .Offset(0, 1) = "S" & Format(.Offset(0, 1).Column, "00")
End With
End If
Le principe étant de tester si une première semaine existe, puis si le dernier numéro de semaine est différent de 52, si c'est bien le cas en affecter S et le numéro correspondant à la colonne
Seule contrainte : Rien d'autre sur cette ligne
@+
Valérie