Problème code VBA

Bonjour à tous,

J'ai essayé de mettre un code VBA, qui me permettrait de prendre certaines valeurs de certaine cellule d'une feuille et de les coller dans des cellules précises d'une autre feuille.

Les valeurs copiées sont issues de formule.

Cependant avec mon code VBA, les valeurs sont enlevées complétément, donc mes formules disparaissent et ne sont même pas copiées.

J'espère avoir été le plus clair possible. Merci d'avance de votre aide

Sub TransfertRB()
Dim L As Long

With Sheets("Rapprochements Bancaires")
            L = .Range("B" & Rows.Count).End(xlUp).Row
    If Range("B" & L) = "" Then
            Sheets("Saisie du RB").Range("C7").Value = Sheets("Rapprochements Bancaires").Range("B" & L).Value
            Sheets("Saisie du RB").Range("C10").Value = Sheets("Rapprochements Bancaires").Range("C" & L).Value
            Sheets("Saisie du RB").Range("F10").Value = Sheets("Rapprochements Bancaires").Range("D" & L).Value
            Sheets("Saisie du RB").Range("F11").Value = Sheets("Rapprochements Bancaires").Range("E" & L).Value
            Sheets("Saisie du RB").Range("F12").Value = Sheets("Rapprochements Bancaires").Range("F" & L).Value
            Sheets("Saisie du RB").Range("F13").Value = Sheets("Rapprochements Bancaires").Range("G" & L).Value
            Sheets("Saisie du RB").Range("I11").Value = Sheets("Rapprochements Bancaires").Range("H" & L).Value
            Sheets("Saisie du RB").Range("I12").Value = Sheets("Rapprochements Bancaires").Range("I" & L).Value
            Sheets("Saisie du RB").Range("F15").Value = Sheets("Rapprochements Bancaires").Range("J" & L).Value
            Sheets("Saisie du RB").Range("E24").Value = Sheets("Rapprochements Bancaires").Range("K" & L).Value
            Sheets("Saisie du RB").Range("I10").Value = Sheets("Rapprochements Bancaires").Range("M" & L).Value
            Sheets("Saisie du RB").Range("I15").Value = Sheets("Rapprochements Bancaires").Range("N" & L).Value
            Sheets("Saisie du RB").Range("FG32").Value = Sheets("Rapprochements Bancaires").Range("O" & L).Value
    Else

        I = Sheets("Rapprochements Bancaires").Range("B" & Rows.Count).End(xlUp).Row + 1
            Sheets("Saisie du RB").Range("C7").Value = Sheets("Rapprochements Bancaires").Range("B" & I).Value
            Sheets("Saisie du RB").Range("C10").Value = Sheets("Rapprochements Bancaires").Range("C" & I).Value
            Sheets("Saisie du RB").Range("F10").Value = Sheets("Rapprochements Bancaires").Range("D" & I).Value
            Sheets("Saisie du RB").Range("F11").Value = Sheets("Rapprochements Bancaires").Range("E" & I).Value
            Sheets("Saisie du RB").Range("F12").Value = Sheets("Rapprochements Bancaires").Range("F" & I).Value
            Sheets("Saisie du RB").Range("F13").Value = Sheets("Rapprochements Bancaires").Range("G" & I).Value
            Sheets("Saisie du RB").Range("I11").Value = Sheets("Rapprochements Bancaires").Range("H" & I).Value
            Sheets("Saisie du RB").Range("I12").Value = Sheets("Rapprochements Bancaires").Range("I" & I).Value
            Sheets("Saisie du RB").Range("F15").Value = Sheets("Rapprochements Bancaires").Range("J" & I).Value
            Sheets("Saisie du RB").Range("E24").Value = Sheets("Rapprochements Bancaires").Range("K" & I).Value
            Sheets("Saisie du RB").Range("I10").Value = Sheets("Rapprochements Bancaires").Range("M" & I).Value
            Sheets("Saisie du RB").Range("I15").Value = Sheets("Rapprochements Bancaires").Range("N" & I).Value
            Sheets("Saisie du RB").Range("G32").Value = Sheets("Rapprochements Bancaires").Range("O" & I).Value
    End If
End With
End Sub

Bonjour,

et bien n'écris pas dans les cellules avec formule.

eric

Je n'écrit pas dans les cellules justement.

Alors les formules restent.

C'est à rendre pour quand ?

Je reviens de tester, les formules ne restent pas !

Ceci n'est pas presser mais j'aimerais que le problème soit régler rapidement...

Que veux-tu que je te dise. Tes formules ne disparaissent pas par la magie du saint-esprit.

C'est forcément par une de tes macros.

Et tu sembles nous prêter des dons que nous n'avons pas. Tu ne dis même pas quelles cellule de quelles feuilles sont concernées.

Et le but des forums n'est pas de faire tes devoirs à ta place, tiens en compte.

eric