besoin aide macro

Bonjour je n'arrive pas a decaler mes cellules dans (suivi appro) je veut demarrer en cellule D puis sauter une cellule(F) etc
voici ma macro

Sub Bouton8_Clic()
Dim Plage, d As Range
Plage = Array("E3", "E5", "E7", "E9", "I9", "E11", "E13", "I13", "E15", "E17", "E19")
Set d = Sheets("BDD").Range("A65536").End(xlUp).Offset(1, 0)
For t = 0 To UBound(Plage)
d.Offset(0, t) = Range(Plage(t))
Next
Plage = Array("E3", "E9", "B24", "F24", "J24", "B27", "F27", "K9")
Set d = Sheets("suivi appro").Range("D65536").End(xlUp).Offset(1, 0)
For t = 0 To UBound(Plage)
d.Offset(0, t) = Range(Plage(t))
Next
End Sub