Macro pour reporter un montant en focntion du signe.

Private Sub cbImport_Click()
  Dim file As Variant 'Nom du fichier à ouvrir
  Dim wb As Workbook  'Le fichier ouvert
  Dim i As Integer    'Un compteur
  Dim v               'Valeur lue dans extraction

  
  'Ouvrir le fichier extractions
  Application.ScreenUpdating = False
  file = Application.GetOpenFilename("XL Files (*.xls*), *.xls*")
  If file <> False Then Set wb = Workbooks.Open(file)
  
  'Parcourir les colonnes H à N de la ligne 2 du fichier extraction
  'et recopier les valeurs dans B1 à B7 de la feuille active
  For i = 1 To 7
    v = wb.Worksheets(1).Cells(2, i + 7).Value
    If Len(v) > 2 Then
      Range("B" & i).Value = IIf(Right(v, 2) = "DB", -Left(v, Len(v) - 2), v)
    Else
      Range("B" & i).Value = v
    End If
  Next i
  
  wb.Close False
  
End Sub

Private Sub cbImport_Click()
  Dim file As Variant 'Nom du fichier à ouvrir
  Dim wb As Workbook  'Le fichier ouvert
  Dim i As Integer    'Un compteur
  Dim v               'Valeur lue dans extraction

  Workbooks.Open Filename:="C:\chemein du fichier..."
  
  
  'Parcourir les colonnes H à N de la ligne 2 du fichier extraction
  'et recopier les valeurs dans B1 à B7 de la feuille active
  For i = 1 To 7
    v = wb.Worksheets(1).Cells(2, i + 7).Value
    If Len(v) > 2 Then
      Range("B" & i).Value = IIf(Right(v, 2) = "DB", -Left(v, Len(v) - 2), v)
    Else
      Range("B" & i).Value = v
    End If
  Next i
  
  wb.Close False
  
End Sub

Set WB = Workbooks.Open ("C:\chemein du fichier...")