Bonsoir à tous,
 
Petit soucis sur la macro suivante :
 
For i = 3 To duree + 2
For j = 3 To duree + 2
    If Month(Worksheets("VLM" ).Cells(i, 1)) = Month(Worksheets("VL" ).Cells(j + 1, 1)) Then
     Next j
    Else
    Worksheets("VLM" ).Cells(i + 1, 1) = Worksheets("VL" ).Cells(j, 1)
Next i
 
En fait, dans la première colonne de la feuille VL se trouvent des series temporelles hebdomadaires que j'aimerais convertir en series mensuelles, et récupérer à chaque fois la première date du moi ...  
 

Et c'est quoi ton soucis ?

Il marche ce code ?

ca marche mieux avec ca non ?
For i = 3 To duree + 2
    For j = 3 To duree + 2
        If Month(Worksheets("VLM" ).Cells(i, 1)) = Month(Worksheets("VL" ).Cells(j + 1, 1)) Then
        Else
        Worksheets("VLM" ).Cells(i + 1, 1) = Worksheets("VL" ).Cells(j, 1)
        End If
    Next j
Next i