Macro Copier/Coller une valeur dans une cellule variable

[John38]

Bonjour,

Je cherche à copier la valeur de ma cellule C3 Feuil1 dans la Feuil2 Colonne C en commençant par la 3ème ligne puis à chaque fois que j'execute la macro descendre de une ligne jusqu'à C14. Dès que la colonne est remplie aller à D3 jusqu'à D14 ainsi de suite jusqu'à la colonne G.

J'ai trouvé un code sur internet, mais il ne change pas de colonne comme je souhaite et ne colle pas la valeur. Il colle la formule qui est dans la case.

Sub Macro1()
Dim dest As Range 'déclare la variable dest
'définit la variable dest
With Sheets("Feuil2")
    If .Range("C3").Value = "" Then 'si C3 est vide
        Set dest = .Range("C3")
    Else 'sinon la première cellule vide de la colonne C
        Set dest = .Range("C14").End(xlUp).Offset(1, 0)
    End If
End With
'copie et colle la cellule C3 dans la colonne C de l'onglet "Feuil2"
Sheets("Feuil1").Range("C3").Copy Destination:=dest

End Sub

Est ce que vous pouvez m'aider ? Je vous remercie par avance

 

[opopop]

Re : Macro Copier/Coller une valeur dans une cellule variable

Merci m'sieur!