Private Sub Worksheet_Activate()
Dim Sme As Byte
Sme = DatePart("ww", Date, 2, 2)
Cells(1, 1) = "Semaine n° " & Sme
[COLOR="Red"][B]If Not Target.Address = "$A$1" Then Exit Sub[/B][/COLOR]
datedep = CDate("1/1/" & Year(Date))
For D = datedep To CDate("1/1/" & Year(Date) + 1)
If DatePart("ww", D, 2, 2) = [B][COLOR="SeaGreen"]Sme[/COLOR][/B] Then
Range("A2") = "Du " & D & " au " & D + 6
Exit For
End If
Next
End Sub