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