Bonjour tous le monde

Voila ci-dessous j'ai une macro qui fonctionne très à un détail pré, en effet je voudrai que quand les données sont envoyées à la page voulu les cases soit avec des bordure horizontales et verticales en format simples

Merci d'avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub AjoutNouveauFournisseur_Click()
 
  Dim Ctrl As Control
  Dim r As Integer
  Dim Derligne As Integer
  Dim LigneDebut As Long
  Dim Ligne As Long, Celluledebut As Integer, Cellulefin As Integer
  Dim Celluledebut2 As Integer, Cellulefin2 As Integer
 
  With Worksheets("Liste_Fournisseurs")
      LigneDebut = 12
      Derligne = .Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
      Ligne = Derligne
      Celluledebut = 3: Cellulefin = 8
            .Range(.Cells(Ligne, Celluledebut), .Cells(Ligne, Cellulefin)).Merge
             Celluledebut2 = 9: Cellulefin2 = 21
      .Range(.Cells(Ligne, Celluledebut2), .Cells(Ligne, Cellulefin2)).Merge
      For Each Ctrl In AjoutFournisseurs.Controls
        r = Val(Ctrl.Tag)
        If r > 0 Then .Cells(Derligne, r) = Ctrl
      Next
      End With
      Fourniseurs_TextBox = ""
      Fourniseurs_TextBox.SetFocus
   End Sub
Cordialement