Colage spécial conditionné

[condors.s]

Bonjour le forum.
Je cherche une solution pour faire un colage spécial conditionné.
J'ai sur mon fichier 2 onglets.
Sur chaque onglet 1 tableau. Il s'agit des meme sur les 2 onglets (meme taille, meme position sur la page,...).

Je souhaiterais copier les valeur du tableau 2 dans le 1 en ne prenant que les cellule dont le résultat est compris entre 1 et 9.

Merci à tous

 

[pierrejean]

Re : Colage spécial conditionné

Re

Pour le fun

 Sub test()
For Each cel In Sheets("Feuil2").Range("B2:J20")
  If Sheets("Feuil1").Range(cel.Address) = "" And IsNumeric(cel.Value) And cel.Value > 0 And cel.Value < 10 Then
    cel.Copy Destination:=Sheets("Feuil1").Range(cel.Address)
  End If
Next cel
Sheets("Feuil1").Select
End Sub