Salut,
Il suffit juste de rajouter une condition ,2 façons de faire, la deuxieme te permettra de rajouter des feuilles le cas échéant:
With Ws
If .Range("A5") = "" Then
if .name = "Résultats détaillés" then
Set Plage = .Range("A5:BC5")
else
Set Plage = .Range("A5:K5")
end if
Else
Set Plage = .Range("A5:A65536")
Lignes = WorksheetFunction.CountIf(Plage, ">""") + WorksheetFunction.Count(Plage)
select case .name
case "Résultats détaillés" :Set Plage = Plage.Resize(Lignes, 53)
case "Résultats simplifiés": Set Plage = Plage.Resize(Lignes, 8) 'K est la colonne 8
'case "une autre feuille":Set Plage = Plage.Resize(Lignes, 15) 'par exemple
end select
A+++