Copier une plage de cellules sur un emplacement variable

Bonjour à tous,

Je souhaiterais faire une macro qui remplisse un tableau automatiquement à partir d'un onglet de saisie.

Je vois comment faire le début de macro : selection puis copie mais c’est après que je n’y arrive plus car il faut coller les valeurs au bon endroit (ligne du produit concerné et mois/année)

Et c’est là que je ne sais pas faire en temps normal j’aurais mais un INDEX EQUIV pour trouver mais ca ne doit pas marcher

J’imagine que c’est très simple mais bon ...

Je joins un fichier pour expliquer.

Merci beaucoup,

Nicolas

Voilà le code final

Sub lmkjmjkmk()

With Sheets("SAISIE")

For i = 5 To 29

If .Range("f" & i) = "Décision" Then

produit = .Range("a" & i)

annee = .Range("e" & i)

Sheets("SAISIE").Range("g" & i & ":r" & i).Copy

Sheets("DONNEES").Select

ligne = Cells.Find(What:=produit, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False).Row

colonne = Cells.Find(What:=annee, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False).Column

Cells(ligne, colonne).Select

ActiveSheet.Paste

End If

Next i

End With

End Sub