XL pour MAC Recopie cellules via formule

Option Explicit

Const colD% = 4 'colonne Destination = colonne D
'si dans ton fichier réel la dernière colonne est
'par exemple J, il suffit de remplacer 4 par 10 :
'Const colD% = 10 '(laisse le D de colD car c'est
'l'initiale de "Destination") ; y'a pas d'autre
'changement à faire : ce qui suit reste pareil !

Dim nlm&, lg2&, col%

Private Sub Job()
  Dim T, n&
  n = Cells(nlm, col).End(3).Row: If n = 1 Then Exit Sub
  n = n - 1: T = Cells(2, col).Resize(n)
  Cells(lg2, colD).Resize(n) = T: lg2 = lg2 + n
End Sub

Sub concat()
  nlm = Rows.Count: lg2 = 2: Application.ScreenUpdating = 0
  For col = 1 To colD - 1: Job: Next col
End Sub

Function MultiConcatC(vArr As Variant, Optional Séparateur As String = ";") As String
Dim j As Variant
If IsArray(vArr) Or TypeName(vArr) = "Range" Then
  For Each j In vArr
    If MultiConcatC = "" Then
    MultiConcatC = j
    ElseIf j <> "" Then
    MultiConcatC = MultiConcatC & Séparateur & j
    End If
    Next j
  Else
MultiConcatC = CStr(vArr)
End If
End Function

Function Concat(ByVal Rng As Range)
'Pour concaténer une seule colonne (avec moins de 65536 lignes)
Concat = Join(Application.Transpose(Rng.Value), ";")
End Function