Bonjour,

Déjà voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim colonne As Range
Dim cell As Range
Set colonne = Range("A1")
Set cell = Range("A2")
For i = 0 To 9
    If Weekday(Date, vbMonday) Then
        colonne.Value = Date + (7 * i + (10 - (Weekday(Date, vbMonday))))
    Else
        colonne.Value = Date + 7 * i
    End If
 
    While cell.End(xlDown).Value <> ""
        If cell.End(xlDown).Value <> "" Then
            Range("A2", Range("A2").End(xlDown)).Value = ""
        End If
    Wend
 
    Set colonne = colonne.Next
Next
En faite il remplis des cellules avec une date, ça c'est bon
Et ensuite il vide les cellules qui sont en dessous de celle qui contient la date, et c'est la mon problème avec cette ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("A2", Range("A2").End(xlDown)).Value = ""
Je ne voit pas comment faire pour quelle puisse être incrémenter.

Merci