xlig = Range("IV1").End(xltoleft).Column + 1
xlig = Range("IV3").End(xlToLeft).Column + 1
Dim xlig As Long
Sheets("feuil2").Select
xlig = Range("IV3").End(xlToLeft).Column + 1
Cells(3, xlig) = Sheets("feuil1").Cells(3, 2)
Dim xlig As Long
Sheets("feuil2").Select
xlig = Range("IV3").End(xlToLeft).Column + 1
Cells(3, xlig) = Sheets("feuil1").Cells(3, 2)