Bonjour,

Aprés avoir chercher pendant longtemps je ne parviens pas à trouver le code suivant, si quelqu'un a un peu de temps pour regarder, ca m'aiderait beaucoup
1) Quel est le code pour selectionner et copier la derniére cellule non vide d'une ligne précise ? (Ligne 12 de la feuille F2)
2) Quel est le code pour coller cette cellule dans la premiére cellule vide d'une ligne précise d'une autre feuille ? ( Ligne 45 de la Feuille F1, en partant de la colonne Q)


Pour le deuxième point j'avais trouvé cette macro mais lorsqu'il s'agit d'y coller la valeur copiée au préalable elle ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
  Sheets("F1").Select
    Range("Q45").Select
  ActiveCell.Offset(0, 1).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select
 
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Loop


Je vous remercie d'avance pour votre aide,

Bonne journée