Plantage de EXCEL

Private Sub Recup_info_nasdaq()
    
    Range("C17:J111").ClearContents
    
    
    Set fich = Workbooks.Open("http://www.boursorama.com/international/inter_az_bourse.phtml?pays=Etats-Unis&bourse=indice%3D%24NDX.X")
    Range("H23:O63").Copy
    Workbooks("Portefeuille_action_USA.xlsm").Activate
    Range("C17:I57").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    fich.Close (False)
    Set fich = Workbooks.Open("http://www.boursorama.com/international/inter_az_bourse.phtml?pays=Etats-Unis&bourse=indice=$NDX.X&LETTRE=&page=1")
    Range("H24:O63").Copy
    Workbooks("Portefeuille_action_USA.xlsm").Activate
    Range("C58:I98").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    fich.Close (False)
    Set fich = Workbooks.Open("http://www.boursorama.com/international/inter_az_bourse.phtml?pays=Etats-Unis&bourse=indice=$NDX.X&LETTRE=&page=2")
    Range("H24:O38").Copy
    Workbooks("Portefeuille_action_USA.xlsm").Activate
    Range("C98:I112").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    fich.Close (False)

End Sub

Private Sub MAJ_NAS()
    
    Application.CutCopyMode = False
    
    Worksheets("NASDAQ_100").Activate
    
    Run "Recup_info_nasdaq"
    Run "Remplace2"
    Run "NombresStockesEnTexteVersNombres2"
    Run "formatnombre2"
    Run "couleur2"
    
    Range("A1").Activate
    
End Sub

Private Sub couleur2()
    
    Dim Coul
    
    For Each Coul In Range("E18:E111")
        If Coul.Value < 0 Then
            Coul.Font.ColorIndex = 3
        Else
            Coul.Font.ColorIndex = 4
        End If
    Next

End Sub

Private Sub Remplace2()

    For Each cell In Range("C18:J111")
    cell.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next

End Sub

Private Sub formatnombre2()
    
    Dim Val
    
    For Each Val In Range("J18:J111")
        Val.NumberFormat = "0"
    Next
    
    For Each Val In Range("F18:I111")
        Val.NumberFormat = "0.00"
    Next
    
    For Each Val In Range("D18:D111")
        Val.NumberFormat = "0.00"
    Next
    
    For Each Val In Range("E18:E111")
        Val.NumberFormat = "0.00%"
    Next
    
End Sub

Private Sub NombresStockesEnTexteVersNombres2()
   
   Dim Val
   Dim longeur
   
   For Each Val In Range("D18:D111")
        
        longeur = Len(Val)
        
        If InStr(1, Val, "(c)") <> 0 Then
            Val.Value = Left(Val, longeur - 3)
        End If
        
    Next
   
    For Each Val In Range("E18:E111")
        
        longeur = Len(Val)
    
        Val.Value = Left(Val, longeur - 1)
        
    Next
   
   Dim cellule As Range
   
   For Each cellule In Range("D18:I111")
   cellule.Value = CDbl(cellule.Value)
   Next
   
   For Each Val In Range("E18:E111")
        Val.Value = Val / 100
    Next

End Sub