Macro de selection et d'impression

Bonjour,

mon probleme est que voulant faire un impression uniquement des lignes referencés dans un tableau excel, j'ai pondu un petit code en VBA, mais etant une mauvaise poule, le code ne fonctionne pas ;)
Le voici:

Sub Imprimer()
'
' Imprimer Macro
' Impression partielle du document
'

'

For i = 9 To 112
If Not IsEmpty(Feuil1.Cells(G, i)) Then
Range("Bi:Gi").Select
End If
Next i
Feuil1.PrintPreview


End Sub


Si quelqu'un pouvais m'orienter et m'expliquer ce qui ne va pas dans mon code, cela m'aiderai beaucoup.

Merci d'avance.