Ajout des données en concaténation

Bonjour,

J'ai le tableau suivant:

Je veux ajouter des éléments dans les colonnes:

C et D

E et F

G et H

Etc...

Le principe est le suivant:

A partir d'une combobox je sélectionne le numéro de la lame, j'introduis une date je valide puis les donnes se rajoutent dans les colonnes que j'ai cité en haut, je veux après chaque ajout que si par exemple dans la colonne C j'ai la dernière lame qui est 001-10-20-M1-F-004, la nouvelle sera 001-10-20-M1-F-005 (N+001).

J'ai rédigé le code suivant et j'ai 2 problèmes:

-Quand je rajoute une lame a partir du numéro 2 ca se met pas dans la bonne colonne.

- J'ai pas su comment faire pour l’incrémentation.

Private Sub CommandButton1_Click() 'valider
   Dim dc As Integer, i As Integer, lig As Long, dl As Integer
  If UF_VerifM2.ComboBox1.ListIndex = -1 Then Exit Sub
  If Len(Me.TextBox1.Value) = 0 Then Exit Sub
  lig = Me.ComboBox1.ListIndex + 2
  If Not IsDate(Me.TextBox1.Value) Then Exit Sub
'  dc = Sheets("Verif_M2").Cells(1, Columns.Count).End(xlToLeft).Column
  dl = Sheets("Verif_M2").Cells(Rows.Count, 1).End(xlUp).Row
  For i = 3 To dl
    If Len(Sheets("Verif_M2").Cells(i, lig + 2).Value) = 0 Then
      Sheets("Verif_M2").Cells(i, lig + 2).Value = CDate(Me.TextBox1.Value)
      Sheets("Verif_M2").Cells(i, lig + 1).Value = Me.ComboBox1.Value & "-" & Me.ComboBox2.Value

      Exit For
    End If
  Next
  MsgBox ("Vérification enregistrée")
  Unload Me
End Sub

Private Sub CommandButton2_Click()
  Unload Me
End Sub

Merci pour votre aide

Dans le fichier joint feuille verif_M1 un clique sur le bouton et le formulaire s'affiche