Bonsoir Philest et le forum
Je pense avoir compris ta demande
Sheets('a').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('b').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('x').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('y').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('z').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
End Sub
Marc