Ce qui donne :
sub CopyColonnes()
Dim NumFeuil As Integer, NumCol As Integer, NumColBis As Integer
NumColBis = 1
For NumFeuil = 1 To 3
For NumCol = 3 To 6
Sheets(NumFeuil).Columns(NumCol).Copy _
Sheets(4).Cells(1, NumColBis)
NumColBis = NumColBis + 1
Next NumCol
Next NumFeuil
End Sub