Bonsoir,

Quelqu'un pourrait-t-il m'expliquer, simplement, ce morceau de code ?
En particulier, le passage souligné... Merci beaucoup !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim datechercher As String
Dim i As Integer
With Sheets("Feuil1")
    datechercher = Date
    For i = 17 To 47
        If CDate(.Cells(10, i)) = datechercher Then
            .Range(.Cells(11, i), .Cells(33, i)).Select
            Exit Sub
        End If
    Next i
End With
End Sub