Bonjour

je n'ai pas testé mais je voudrais savoir si ce code est possible

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
sub essai ()
Dim  Ws1 As Worksheet, Ws2 As Worksheet
Set Ws1 = ThisWorkbook.Worksheets("x")
Set Ws2 = ThisWorkbook.Worksheets("y")
With Ws1 and Ws2
    'action commune au 2 fichiers
If Ws1 =  'condition Then
    'action
Elseif Ws2 = 'condition Then
    'action
End if
End With
Sub end
Je pense que que vous allez me proposer For Each Worksheet in Workbook mais je voulais savoir si ma demande était réalisable
Merci de vos éclairages