Option Explicit
Sub Suivi_Bancaire()
'
'
'Supprimer la colonne moyenne de paiement
Columns("C").Select
Selection.ClearContents
' Les dernières colonnes inutiles
Columns("H:I").Select
Selection.ClearContents
'Déplacer la colonne "Type de dépense"
Columns("E:E").Select
Selection.Cut Destination:=Columns("D:D")
Columns("D:D").Select
'Sélection tableau
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$F$53"), , xlNo).Name = _
"Tableau1"
Range("Tableau1[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "Date"
Range("Tableau1[[#Headers],[Colonne2]]").Select
ActiveCell.FormulaR1C1 = "Dépenses"
Range("Tableau1[[#Headers],[Colonne3]]").Select
ActiveCell.FormulaR1C1 = "Revenus"
Range("Tableau1[[#Headers],[Colonne4]]").Select
ActiveCell.FormulaR1C1 = "Débiteur"
Range("Tableau1[[#Headers],[Colonne5]]").Select
ActiveCell.FormulaR1C1 = "Types de Dépense"
Range("Tableau1[[#Headers],[Colonne6]]").Select
ActiveCell.FormulaR1C1 = "Types de Revenu"
'Bonne taille des celules
Columns("F:F").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
' Déplacer les valeurs positives à droite
Dim derlig As Integer
Dim test As Integer
Dim i As Integer
derlig = Range("B65536").End(xlUp).Row
For i = 1 To derlig
test = Range("B" & i).Value
If test >= 0 Then
Range("C" & i) = test
Range("B" & i) = ""
End If
Next i
End Sub