Bonjour à tous, je souhaiterais écrire dans une cellule donnée le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
=SI(Ax="";"";Coefficients!$C$1)
En sachant que x est la ligne de la cellule et Coefficients une feuille de calcul contenue dans le même tableur. J'ai essayé ce code dans une cellule et celui-ci fonctionne.

Seulement, je souhaiterais le réaliser sur l'ensemble des cellules. Je réalise donc une macro avec le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub init()
    For A = 6 To 65536
        Cells(A, 23).Value = "=SI(A" & A & "=" & Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34) & ";" & Chr(34) & "Coefficients!$C$1)"
    Next A
End Sub
Toutefois, il m'affiche une erreur lors de la lecture de la ligne contenant la commande Cells. Est-ce que l'un d'entre vous pourrait m'apporter son aide ?

En vous remerciant par avance.