Feuil1.Range(Cells(5, 8), Cells(5, Columns.Count).End(xlToLeft)).Select
range(mazone).select
Sub Test()
Dim Plage As Range, Dercel As Range
Set Dercel = Selection.SpecialCells(xlCellTypeLastCell)
Set Plage = Range("H5:" & Dercel.Address)
Plage.Select
End Sub
Bonjour à tous,
Salut MaPomme
Peux-tu essayer :
VB:Sub Test() Dim Plage As Range, Dercel As Range Set Dercel = Selection.SpecialCells(xlCellTypeLastCell) Set Plage = Range("H5:" & Dercel.Address) Plage.Select End Sub
A+ à tous
Bonjour à tous,
Voir le fichier joint en cliquant sur la Coche...
A+ à tous
Sub test()
Dim maZone As Range
With Sheets("Feuil1")
Set maZone = .Range(.Range("h5"), .Cells(5, Columns.Count).End(xlToRight))
maZone.Copy Sheets("Feuil2").Range("a2")
End With
End Sub