Sub Extract_Valeur()
Dim Tablo, Lign As Long, k As Long, m As Byte
Lign = Sheets("History").Range("B65536").End(xlUp).Row
Tablo = Sheets("Matrice").Range("A5:O" & Sheets("Matrice").Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
With Sheets("History")
For k = 1 To UBound(Tablo)
For m = 10 To 15
If Tablo(k, m) <> "" Then
.Cells(Lign, 2) = Tablo(k, 2)
.Cells(Lign, 3) = Tablo(k, 1)
.Cells(Lign, 5) = "Formation n° " & m - 9
.Cells(Lign, 7) = Tablo(k, m)
.Cells(Lign, 7).NumberFormat = "mm/yy"
Lign = Lign + 1
End If
Next
Next
End With
Application.ScreenUpdating = True
End Sub