MsgBox Application.Caller.Parent.Name & vbLf & Application.Caller.Parent.Parent.Name
Public Function RecapCamion(ByVal A As Range) As String
Dim NbColonne, i, j, k As Long
Dim Flag As Integer
Dim Design As String
'On compte le nombre de colonne de notre sélection
NbColonne = A.Columns.Count
Flag = 0
i = 1
j = 19
k = 141
While (i <= NbColonne - 1)
'si mag 1 est différent de vide
If A(1, i) <> "" Then
If (Flag = 0) Then
'On passe à la dénomination
Design = A(1, i) & A(1, j)
Flag = 1
Else
'Si c'est le magasin suivant
Design = Design & "/" & A(1, i) & A(1, j)
End If
End If
i = i + 20
j = j + 20
Wend
Design = Design & " " & A(1, k)
RecapCamion = Design
End Function