Remplir des cellules vides

[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]