COPIER ONGLET VERS UN AUTRE ONGLET + FUSION 2 CELLULES

Bonsoir,

J'aurai besoins de votre aide

En effet je souhaiterai copier la totalité de l'onglet Mo vers l'onglet Datas avec une fusion de 2 cellule séparé par un "~"

comme l'exemple en pièce jointe

Merci de votre aide

Cordialement

Bonsoir Barachoie,

A coller dans le module de la feuille 'Mo' puis double-clic sur [A1].

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData
Cancel = True
'
If Not Intersect(Target, Range("A1")) Is Nothing Then
    iRow = Range("A" & Rows.Count).End(xlUp).Row
    tData = Range("A2:L" & iRow).Value
    '
    For x = 1 To UBound(tData, 1)
        tData(x, 5) = tData(x, 5) & Chr(126) & tData(x, 10)
    Next
    Worksheets("datas").Range("A2:L" & iRow) = tData
End If
'
End Sub

A+

Merci Curulis57.

C top comme d'hab et fonctionnel

T un génie Merci