Private Sub Worksheet_Change(ByVal Target As Range)
Dim annee, semaine As String
Dim Cel As Range
If Target.Column = 11 Then
Application.EnableEvents = False
If Target.Count = 1 Then
If Target = "" Or IsEmpty(ActiveCell.Value = "") = True Then
Cells(Target.Row, 14) = ""
Else
annee = Right(Str(Format(Cells(Target.Row, 11).Value, "yyyy")), 2)
semaine = Str(DatePart("ww", Target, 2, 2))
If CInt(semaine) >= 10 Then
Cells(Target.Row, 14) = CInt(annee + semaine)
Else
Cells(Target.Row, 14) = CInt(annee + "0" + semaine)
End If
End If
Else
If Application.CountA(Target) = 0 Then
For Each Cel In Target
Cells(Cel.Row, 14) = ""
Next Cel
End If
End If
End If
Application.EnableEvents = True
End Sub