Pas grave.Je suis impardonnable, car je n'ai pas fait de recherche sur le forum avant de poster, je l'ai fait après.
la réponse est là https://www.excel-downloads.com/thr...e-meme-contenu-que-la-cellule-du-haut.108348/
Méa culpa.
Boris
[COLOR="DarkSlateGray"][B]Sub toto()
Dim oPlg, odat(), i&
Set oPlg = [A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4)
If Not oPlg Is Nothing Then
If oPlg.Rows.Count > 2 Then
odat = oPlg.Value
For i = 3 To UBound(odat, 1)
If odat(i, 1) = "" Then odat(i, 1) = odat(i - 1, 1)
If odat(i, 2) = "" Then odat(i, 2) = odat(i - 1, 2)
Next
[A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4) = odat
End If
End If
End Sub[/B][/COLOR]
[COLOR="DarkSlateGray"][B]Sub tata()
Dim oPlg, odat(), i&
Set oPlg = [A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4)
If Not oPlg Is Nothing Then
If oPlg.Rows.Count > 2 Then
odat = oPlg.Value
For i = UBound(odat, 1) To 3 Step -1
If odat(i, 1) = odat(i - 1, 1) Then odat(i, 1) = ""
If odat(i, 2) = odat(i - 1, 2) Then odat(i, 2) = ""
Next
[A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4) = odat
End If
End If
End Sub[/B][/COLOR]