Sub Test()
Dim Ligne As Integer, Colonne As Integer
With Sheets("Feuil2")
For Colonne = 2 To 10
For Ligne = 2 To 10
If Sheets("Feuil1").Cells(Ligne, Colonne).Value [COLOR=red][B]=[/B][/COLOR] "" And .Cells(Ligne, Colonne).Value >= 1 _
And .Cells(Ligne, Colonne).Value <= 9 Then
Sheets("Feuil1").Cells(Ligne, Colonne).Value = .Cells(Ligne, Colonne).Value
End If
Next Ligne
Next Colonne
End With
End Sub