Sub Tri_Mise_en_page_finale_Total_Enregistrement()
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
'Rows("11:" & LigFin).EntireRow.AutoFit
Range("A11:G" & LigFin).Columns.AutoFit
Range("A11:G" & LigFin).Rows.AutoFit
End Sub