Sub Copie_NbVoyages()
Application.ScreenUpdating = False
Sheets("Data ligne").Select
tablo = Range("A2:M" & Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
x = 1 / Application.CountIf(Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row), tablo(n, 1))
tablo(n, 13) = x
Next
Range("A2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
Application.ScreenUpdating = True
End Sub