Autres Affichage par lignes(Résolu)

     DL = [I65000].End(xlUp).Row
        If DL < 6 Then
            Cells(6, "i") = Num
        Else
            Cells(1 + DL, "i") = Num
        End If

     DL = [D65000].End(xlUp).Row
     If DL = 18 Then Exit Sub
        If DL < 6 Then
            DL = 6
        End If
        If Len(Cells(DL, "D")) <= 20 Then
            Cells(DL, "D") = Cells(DL, "D") & "-" & Num
        Else
            DL = DL + 1
            Cells(DL, "D") = Cells(DL, "D") & "-" & Num
        End If
        If Left(Cells(DL, "D"), 1) = "-" Then Cells(DL, "D") = Mid(Cells(DL, "D"), 2)