Merci Jean Pierre, Ca marche parfait toutefois quand je commence le traitement de la feuille que je seletionne genre selectionner un range ça ne marche pas, il me renvoie l'erreur: la methode range de l'objet worksheet a echoué !
Merci de votre aide
Dim wb As Excel.Workbook
For Each wb In Workbooks
If wb.Sheets(3).Name = '13 Edition gamme' Then
wb.Activate
wb.Sheets(3).Activate
Sheets(3).Cells(52, 5).Select
Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell)).Select
End If
Next wb
End Sub