Sub ConvertirValeur()
Application.ScreenUpdating = False
DL = Range("C65500").End(xlUp).Row
For L = 5 To DL
For C = 4 To 7 ' de col D à G
If Cells(L, C) <> "" Then
Valeur = Left(Cells(L, C), Len(Cells(L, C)) - 1)
Select Case Right(Cells(L, C), 1)
Case "P": Valeur = Valeur * 1000000
Case "T": Valeur = Valeur * 1000
Case "G": Valeur = Valeur
Case "M": Valeur = Valeur * 0.001
Case "K": Valeur = Valeur * 0.000001
End Select
Cells(L, C) = Valeur
End If
Next C
Next L
End Sub