Sub Macro1()
Dim Marché As String
'
' Macro1 Macro
Range("C1").Copy Destination:=Sheets("BD marché").Range("A1")
Marché = "MERCADO DESTINO: ANGOLA"
'Marché = range("A1")
With Sheets("BD marché")
.Cells.Find(What:=Marché, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Bodegas").Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
End With
End Sub