Difficulté sur 2 macro "sélection cellules"

JACK 43 avait soumis l'idée :
Bonjour JACK 43,

En fait, sur la deuxieme macro tu test la meme cellule que dans le
premiere macro :
Sub CFbyAprint1()
Dim r As Long
For r = [c65536].End(xlUp).Row To 1 Step -1
If Cells(r, 1).Text <> "" Then
Range(Cells(r, 3), [h9]).Select
Exit For
End If
Next
'Selection.PrintOut
End Sub

Sub CFbyAprint2()
Dim r As Long
For r = [L65536].End(xlUp).Row To 1 Step -1
*If Cells(r, 10).Text <> "" Then*
' Là, j'ai mis 10 au lieu de 1 (qui correspond a la bonne colonne)
Range(Cells(r, 13), [Q9]).Select
Exit For
End If
Next
'Selection.PrintOut
End Sub

Bonjour,


Je souhaite imprimer le tableau jusqu'à la dernière valeur dans le tableau
(dernière ligne). Ma première macro fonctionne mais pas la seconde ne
fonctionne pas, je pense qu'elle se réfère comme la première à la colonne "C"
à ce niveau

For r = [L65536].end.........

MERCI de votre aide je vous joint un fichier exemple.

http://cjoint.com/?mvnFYLQAHQ


merçi et A+