Bonsoir à tous

Dans une ligne, j'ai, dans des cellules, des formules AVEC des formats personnalisés : "nb : xx" ou "xx fois", xx étant le résultat de la formule

J'essaie ceci :
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
Sub essai_cherche_max()
 
For i = 1 To 2
    mavar = Application.Large(Sheets("Feuil1").Range("d5:iv5"), i)
 
    With Worksheets("Feuil1").Range("d5:iv5")
        Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
 
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
        'le traitement
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
Next
End Sub
mais cela ne fonctionne pas, "c" étant "Nothing".

Merci d'avance pour le coup de main

Eric