copier avec rappel d'une feuille

voici une solution.
Cela me semble du bricolage mais bon.

nanor

meric a toi mais j'avais deja en bricolant reussi a obtenir ce resulat le probleme et que je n'aobtient que du texte a la fin dans la cellule (ce n'est pas reconnu comme une formules

Bonsoir le forum

fabrice un debut de macro tu selectionnes la cellule ou commencer

la valeur exemple C3
la premiere feuille a valider
le nombre de cellule a remplir

te reste juste a aller inscrire un = devant les valeurs de chaque cellules remplit, pas trouver comment inserer le = par defaut.

Peut-etre que quelqu'un saura

Sub copier_vers_bas()
a = ActiveCell.Row
b = ActiveCell.Column
cellule = InputBox("Entrez la cellule à copier")
If cellule = "" Then Exit Sub
feuille = InputBox("Entrez le numéro de la première feuille")
If feuille = "" Then Exit Sub
nombre = InputBox("Entrez le nombre de cellule à remplir")
If nombre = "" Then Exit Sub
For i = feuille To feuille + nombre
valeur = "SI(T(Feuil" & i & "!" & cellule & ")=" & Chr(34) & Chr(34) & ";" & Chr(34) & "z" & Chr(34) & ";T(Feuil" & i & "!" & cellule & "))"
Cells(a, b).Formula = valeur
a = a + 1
Next i
End Sub

A suivre Mytå

rien compris merci quand meme