Sub essai()
Dim tab1
Set tab1 = CreateObject("Scripting.dictionary" )
'------------------------------------------------------
' lecture des formations
'------------------------------------------------------
'
l = 4
c = 6
While Cells(l, c) <> ""
cle = UCase(Trim(Cells(l, c)))
data = Cells(l, c - 1)
tab1(cle) = data
l = l + 1
Wend
'------------------------------------------------------
' ecriture des formations
'------------------------------------------------------
'
l = 4
c = 2
While Cells(l, c) <> ""
cle = UCase(Trim(Cells(l, c)))
Cells(l, c + 1) = tab1(cle)
l = l + 1
Wend
End Sub
|