J'ai un peu adapté la macro que tu m'as envoyé pour mon cas pratique (cf joint) mais je ne comprends pas comment sélectionner des cellules précises. (et non un pas de 2, comme sur ta précédente macro). Pourrais -tu m'expliquer comment ajouter des cellules ( mauve sur le doc excel) dans la macro ? Merci
Sub ecr()
With Sheets("Feuil1")
For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
For j = 34 To 23 Step XXXXXX
If .Cells(i, j) <> "" Then
.Cells(i, 15) = .Cells(1, j + 2)
.Cells(i, 16) = DateAdd("d", 7, Cells(i, j))
Exit For
ElseIf .Cells(i, j).Interior.ColorIndex <> xlNone Then
.Cells(i, 15) = .Cells(1, j + 2)
Exit For
End If
Next
Next
End With
End Sub