With Feuil.Cells(Rows.Count, "D").End(xlUp)
.Offset(1).Resize(Feuil.Cells(Rows.Count, "F").End(xlUp).Row - .Row).FormulaR1C1 _
= .FormulaR1C1: End With
Avec Feuil une expression Worksheet représentant la feuille concernée, pouvant être omise ainsi que le point qui la suit s'il s'agit soit de celle à laquelle est attaché le module dans lequel se trouve ce code, soit la feuille active dans tous autres contextes.
With Worksheets("Demande SEO").Cells(Rows.Count, "D").End(xlUp)
.Offset(1).Resize(Worksheets("Demande SEO").Cells(Rows.Count, "F").End(xlUp).Row - .Row).FormulaR1C1 _
= .FormulaR1C1:
End With
Dans l'onglet "Redirection Moteur Interne" : L'utilisateur à la possibilité de remplir les Ranges (C15:C100) et (F15:F100). Une fois remplis il peut validé se demande (bouton validé).
Une fois la validation la Range(C15:100) est Couper/Coller en colonne F sur l'onglet "Demande SEO".
Ce que je veux c'est: copier/coller la cellule C5 (onglet "Redirection Moteur Interne") à la dernière ligne+1 de la colonne D (onglet "Demande SEO") & faire recopier vers le bas jusqu’au numero de la derniere ligne de la colonne F (onglet "Demande SEO").
oui mais si la colonne F est vide elle n'a pas de dernière ligne renseignée. Si c'est la dernière ligne renseignée d'une aitre colonne spécifiez ça à la place de Feuil.Cells(Rows.Count, "F").End(xlUp).Row