Une fonction VBA ne devrait pas ajouter de colonne..
Sub ChangeCel()
Dim Lig As Long
Dim T As String, V, S As Integer
With Sheets("Feuil1")
For Lig = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
V = .Cells(Lig, "A")
If IsDate(V) Then
S = Format(V, "ww", vbMonday, vbFirstFourDays)
T = CStr(V) & " (Sem " & S & ")"
.Cells(Lig, "A") = T
End If
Next Lig
End With
End Sub
Adapter à la feuille et à la colonne
Cdlt.