Sub impressionpartielle()
Dim C1 As Range, C2 As Range
Dim Formule As String, Add As String, Target As String
Dim L As Long
Target = "AH"
' Columns(Target).ClearContents
L = 1
Set C1 = Columns("AJ").Find("*")
If Not C1 Is Nothing Then
Add = C1.Address
Do
Set C2 = Columns("AJ").Find("", C1).Offset(-1)
Formule = "=IFNA(VLOOKUP(""Y""," & C1.Address & ":" & C2.Address & ",1,0),""N"")"
Range(Cells(L, Target), Cells(C1.Row - 1, Target)).Formula = Formule
L = C2.Row + 1
Set C1 = Columns("AJ").Find("*", C2)
Loop Until C1.Address = Add
End If
Set C2 = Nothing
Set C1 = Nothing
End Sub