Code VBA - Sélection étendue aux lignes utilisées

Bonsoir,

Lors de la procédure ci-dessous, la valeur de la ligne finale est déterminée ( LigFin = ShtR.Range("G" & Rows.Count).End(xlUp).Row).

Je n'arrive toutefois pas à récupérer cette valeur afin de remplacer la valeur arbitraire de 1000 indiquée à la ligne : Rows("11:1000").Select.

Il faudrait alors que les lignes selectionnées soient de la ligne 11 à la dernière ligne utilisée. Pouvez-vous m'aider à corriger celà ?

Sub Assurés_disparus_depuis_mois_précédent()

  Dim LigFin As Long, ShtR As Worksheet
  ' Définir le nom de l'objet ShtR
  Set ShtR = Sheets("RepListeQuellensteuer")

  LigFin = ShtR.Range("G" & Rows.Count).End(xlUp).Row

  ........ (code effectuant d'autres actions)

       ' mise en forme provisoire
    Rows("11:1000").Select    
    With Selection.Font
        .Name = "Arial"
        .Size = 10
    End With

   End Sub

Bonne soirée à tous

Bonsoir,

sans sélection de la zone :

Sub Assurés_disparus_depuis_mois_précédent()
  Dim LigFin As Long, ShtR As Worksheet
  ' Définir le nom de l'objet ShtR
  Set ShtR = Sheets("RepListeQuellensteuer")
  LigFin = ShtR.Range("G" & Rows.Count).End(xlUp).Row
       ' mise en forme provisoire
    With Rows("11:" & LigFin).Font
        .Name = "Arial"
        .Size = 10
    End With
End Sub

Nota : la sélection d'une cellule ou d'une plage n'est que très rarement obligatoire, et ralentit le code

Felix,

C'est exactement ce que je cherchais ..... depuis bien longtemps !

Merci infiniment pour ta précieuse aide.

Bonne fin de soirée.