Bonjour j'ai un petit souci car j'ai encore du mal à savoir ce que retourne les fonction et je n'ai pas forcement les meilleurs méthodes pour coder en vba

je vous présente la mienne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Range("A1").Select
While Selection <> ""
    If Selection.Value Like "Calcul Saran" Then
       Selection.Offset(0, 2).AutoFill Destination:=Range(Selection.Offset(0, 2), Selection.Offset(0, Range("C1", Range("C1").End(xlToRight)).Columns.Count + 1)), Type:=xlFillDefault 'CORRIGE
    Else
        Selection.Offset(1, 0).Select
    End If
    Wend
si la cellule "Ax" contient calcul sarant alors on etire la formule située en "Cx" par rapport aux nombre des points qu'on a (on ne le sait pas a l'avance) c'est pour cela que j'etire mon remplissage en fonction du nombre de colonnes que j'ai sur la premiere ligne


mais ma fonction ne fonctionne pas =/

"method range of object global failed"
que dois-je corriger pour la faire fonctionner?
cordialement

EDIT: j'ai réussi a corriger ma fonction, résolu