Problème avec call

Option Explicit
Sub essai()
Call coucou
MsgBox "bonsoir"
End Sub

Sub coucou()
MsgBox "bonjour"
End Sub

Sub Supprimer_les_lignes_vides()

Range("a4:a65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Sub proprietes()
Range("a6:af100").Font.Size = 8
Range("a6:af100").Font.Name = "trebuchet MS"
Range("a6:af100").HorizontalAlignment = xlCenter
Range("a6:af100").VerticalAlignment = xlCenter
Range("a6:af100").Borders.Value = 1
End Sub


Sub Modifie()
Dim Cel As Range
For Each Cel In Range("A6", Range("A6").End(xlDown))
If IsNumeric(Cel) Then
Cel.ClearContents
End If
Next Cel

End Sub
Sub couper()

Range("A6:A100").Select
Selection.Cut
Range("A7").Select
ActiveSheet.Paste
End Sub
Sub letout()
Call Supprimer_les_lignes_vides
Call proprietes
Call Modifie
Call couper
End Sub

Option Explicit
'----------------------------------
Sub eric2707()
Dim Derlig As Integer, T_in, Cptr As Integer, Col As Byte

    Application.ScreenUpdating = False
    With ActiveSheet
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        T_in = .Range("A6:AF" & Derlig)
        For Cptr = 1 To UBound(T_in) - 1
            'If Cptr < 20 Then
                If IsNumeric(T_in(Cptr + 1, 1)) Then T_in(Cptr + 1, 1) = ""
                For Col = 2 To 30
                    T_in(Cptr, Col) = T_in(Cptr + 1, Col)
                Next
            'End If
        Next
  'restitution
        .Range("A6:AF1000").Clear
        With .Range("A6:AF" & Derlig)
            .Value = T_in
            .Font.Size = 8
            .Font.Name = "trebuchet MS"
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Borders.Weight = xlThin
        End With
        .Range("A6:A" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

Option Explicit
'----------------------------------
Sub Reorganiser_donnees()
Dim Derlig As Integer, T_in, Cptr As Integer, Col As Byte

'-----------------------------------initialisations
    'fige le défilement de l'écran: confort visuel & rapidité
    Application.ScreenUpdating = False

    With ActiveSheet
        'dernière ligne utilisée
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        utilisation d 'une variable-tableau--> mise en mémoire Ram pour rapidité d'action (env 80x)
        T_in = .Range("A6:AF" & Derlig)

'---------------------------------traitement
        For Cptr = 1 To UBound(T_in) - 1
                'si valeur numérique ligne dessous---> vide ligne dessous
                If IsNumeric(T_in(Cptr + 1, 1)) Then T_in(Cptr + 1, 1) = ""
                'remplissage de ligne dans T_in
                For Col = 2 To 30
                    T_in(Cptr, Col) = T_in(Cptr + 1, Col) 'cptr+1:  transfert ligne du dessous
                Next
        Next

  '------------------------------------------restitution
        .Range("A6:AF1000").Clear 'efface tableau initial
        With .Range("A6:AF" & Derlig)
            .Value = T_in ' restitution de T_in
            .Font.Size = 8
            .Font.Name = "trebuchet MS"
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Borders.Weight = xlThin
        End With
        'destruction lignes vides
        .Range("A6:A" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub