Bonjour,

Sur une feuille Excel, j'ai entre 1 et 4 valeurs différentes (s1,s2,s3 et s4) en colonne A. Chaque valeur correspond au nom d'une feuille du classeur.
J'aimerais créer une macro permettant de récupérer, pour chaque ligne sur laquelle la valeur est située, les données de la feuille correspondant à la valeur.
La macro que j'ai créée ne marche que si les 4 valeurs ont été rentrées, comment faire pour qu'il passe à l'autre valeur si l'une d'elles n'existent pas?

Voici ma macro:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 For Each cel In Selection
'pour chaque société présente en colonne A, calculer les formules en reprenant le nom des sociétés
 If Cells.Find(What:="s1", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate Then
        ActiveCell.Select
        ActiveCell.Offset(0, 1).FormulaR1C1 = "=COUNTIF('s1'!R2C8:R1500C8,"">0"")"
 
  End If
 
 Next cel
For Each cel In Selection
 If Cells.Find(What:="s2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate Then
        ActiveCell.Select
 ActiveCell.Offset(0, 1).FormulaR1C1 = "=COUNTIF(s2!R2C8:R1500C8,"">0"")"
 
 End If
 
 If Cells.Find(What:="s3", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate Then
        ActiveCell.Select
        ActiveCell.Offset(0, 1).FormulaR1C1 = "=COUNTIF('s3 '!R2C8:R1500C8,"">0"")"
 
 End If
 
 If Cells.Find(What:="s4", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate Then
        ActiveCell.Select
    ActiveCell.Offset(0, 1).FormulaR1C1 = "=COUNTIF('s4'!R2C8:R1500C8,"">0"")"
 
 End If
  Next cel
Merci d'avance pour votre aide.