Private Sub Colonne()
Dim dt As Date
Dim n As Byte, col As Integer
For n = 10 To 16 'ou autre
dt = Range("F" & n).Value
Range("G" & n) = DatePart("ww", dt, 2, 2)
col = Rows(1).Find(Year(dt)).Column 'colonne de l'année
Do Until Cells(2, col) = Range("G" & n)
col = col + 1 'colonne finale
Loop
Range("H" & n).Value = col
Next n
End Sub