Microsoft 365 Probléme en décalage de ligne

Private Sub Ajout_Click()
   Dim dl As Long
   With Sheets("Liste des étudiants")
      .Activate
      dl = .Range("B" & Rows.Count).End(xlUp).Row
      .Cells(dl + 1, 2) = Val(TBnumetud)
      .Cells(dl + 1, 3) = TBnom
      .Cells(dl + 1, 4) = TBprénom
      .Cells(dl + 1, 5) = CBsexe
      .Cells(dl + 1, 6) = CDate(TBdatenaiss)
      .Cells(dl + 1, 7) = TBnumtel
      .Cells(dl + 1, 8) = TBemail
      .Cells(dl + 1, 9) = TBadress
      .Cells(dl + 1, 10) = Val(TBcp)
      .Cells(dl + 1, 11) = TBville
   End With
   MsgBox "L'étudiant au nom de : " & TBnom & " " & TBprénom & vbCrLf & " a bien été ajouté à votre Liste"

End Sub