Sub Macro1()
Dim d As Worksheet 'déclare la variable d (Diplomes)
Dim c As Worksheet 'déclare la variable c (Contrat)
Dim f As Worksheet 'déclare la variable f (Fusion)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim np() As String 'déclare le tableau de variables np (Nom Prénom)
Set d = Sheets("Diplomes") 'définit la variable d
Set c = Sheets("Contrat") 'définit la variable c
Set f = Sheets("Fusion") 'définit la variable f
d.Range("A1").CurrentRegion.Copy f.Range("A1") 'copy les données de l'onglet "Diplomes"
'boucles sur toutes les cellules éditée de la colonne E de l'onglet "Contrat"
For Each cel In c.Range("E2:E" & c.Range("E65536").End(xlUp).Row)
np() = Split(cel.Value, , 2, vbTextCompare) 'définit le tableau de variable np
f.Range("C65536").End(xlUp).Offset(1, 0).Value = np(0) 'copie les noms dans l'onglet "Fusion"
f.Range("D65536").End(xlUp).Offset(1, 0).Value = np(1) 'copie les prénoms dans l'onglet "Fusion"
Next cel 'prochaine cellule éditée de la boucle
'copie les colonnes I à M de l'onglet "Contrat"
c.Range("I2:M" & c.Range("I65536").End(xlUp).Row).Copy f.Range("P65536").End(xlUp).Offset(1, 0)
End Sub