Macro : ajouter une entrée

    Range([A1], [A:B].Find("*", , , , , xlPrevious)).SpecialCells(xlCellTypeBlanks).Delete

Sub MWArbeiterHinzufügen()
Dim c1 As Range, c2 As Range, i As Variant
Set c1 = Sheets("Arbeiter").[D6]
Set c2 = Sheets("Arbeiter").[D7]
If c1 = "" Then MsgBox "Entrez le nom...": c1.Select: Exit Sub
If c2 = "" Then MsgBox "Entrez la fonction...": c2.Select: Exit Sub
With Sheets("Liste")
  i = Application.Match(c1, .[A:A], 0)
  If IsError(i) Then
    If MsgBox("Ajouter le nom dans la liste ?", 4) = 7 Then Exit Sub
    i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
  Else
    If MsgBox("Le nom existe déjà, modifier la fonction ?", 4) = 7 Then Exit Sub
  End If
  .Cells(i, 1) = c1: .Cells(i, 2) = c2
  .[A:B].Sort .[A1], Header:=xlNo
End With
End Sub