CopieX

Sub CopierToutesCellulesDepuisE14()
    Dim ws As Worksheet
    Dim sourceCol As Range
    Dim destCol As Range
    Dim lastRow As Long
    
    ' Définir la feuille active (ou remplacer par "Feuil1")
    Set ws = ActiveSheet
    
    ' Trouver la dernière ligne de la colonne E (pour inclure toutes les cellules remplies ou vides)
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' Définir la plage source à copier (de E14 à la dernière ligne utilisée)
    Set sourceCol = ws.Range("E14:E" & lastRow)
    
    ' Définir la cellule de destination (ici F1)
    Set destCol = ws.Range("F1")
    
    ' Copier toute la plage source vers la destination
    sourceCol.Copy Destination:=destCol
    
    MsgBox "Copie terminée !"
End Sub