Bon ça ne marche pas comme je voudrais...
J'ai modifié quelques éléments pour faciliter la lecture du code et afin d'anticiper une évolution.
Je passe donc en paramètre de la sous-routine la "Worksheet" :
Sub routine1()
Dim Model As String
Model = CStr(Cells(Range("A1:Z100").Find("model").Row, Range("A1:Z100").Find("model").Column + 1).value)
Set WorksheetModel = Worksheets(Model)
Worksheets("Feuille1").Select
'Je travaille ici avec les données de la "feuille 1"
Sous_routine1 cpt, WorksheetModel 'Appel à la sous-routine
End Sub
Sub sous-routine1(value as Long, WorksheetData as Worksheet)
Dim BW As Single
BW = WorksheetData.Cells(WorksheetData.Range("A1:Z100").Find("BW").Row, WorksheetData.Range("A1:Z100").Find("BW").Column + 1).value
End Sub
Et finalement j'ai la même erreur à la même ligne
Merci d'avance pour votre aide...