Mise en forme de Tableau selon cellule Active

[davouille]

Bonjour voila j'ai une première macro qui me sélectionne mon tableau :

Sub test()

lastCol = ActiveSheet.Range("a6").End(xlToRight).Column
lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row
ActiveSheet.Range("a6:" & _
ActiveSheet.Cells(lastRow, lastCol).Address).Select


End Sub

et la deuxième qui me le met en forme :

Sub Macro2()
'
' Macro2 Macro
'
'
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$6:$H$36"), , xlYes).Name = _
"Tableau1"
Range("Tableau1[#All]").Select
ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleMedium16"
End Sub

mais je voudrais que le Range("$A$6:$H$36") soit ma sélection active via la première macro ! Comment faire ? Merci

 

[Raja]

Re : Mise en forme de Tableau selon cellule Active

Bonjour,

Teste le code suivant :

ActiveSheet.UsedRange.Select