Set src_feuille = ThisWorkbook.Sheets("Feuil1" )
src_lg_no = 59 ' à partir de la ligne 59
src_col_no = 8 ' pour la colonne H (A = 1, B = 2, ...)
Set dst_feuille = ThisWorkbook.Sheets("Feuil2" )
dst_lg_no = 59 ' à partir de la ligne 59
dst_col_no = 8 ' pour la colonne H (A = 1, B = 2, ...)
for src_lg_no = 59 to 77
If (Not IsEmpty(src_feuille.Cells(src_lg_no, src_col_no).Value) Then
dst_feuille.Cells(dst_lg_no, dst_col_no).Value = src_feuille.Cells(src_lg_no, src_col_no).Value
dst_lg_no = dst_lg_no + 1
End If
Next ThisWorkbook.Sheets("Feuil2" ).Activate
Range("H59" ).End(xlDown).Select |