' Ajoute une ligne a la base.
Sub Ajouter()
Protection "Feuil1", False
Sheets("Feuil1").Select
Cells(3, 1).Select
' Recherche la premiere ligne vide
With ActiveSheet.Range("A1:A10000")
Set c = .Find("", LookIn:=xlValues)
c.Select
End With
' Recopie la ligne du dessus
Ligne = c.Row
Rows(Ligne - 1).Select
selection.Copy
Rows(Ligne).Select
ActiveSheet.Paste
' Incremente de 1 le N° TBP
Cells(Ligne, 1).Value = Cells(Ligne - 1, 1).Value + 0.0001
' Affecte les valeurs par default
Cells(Ligne, 2).Value = 0
Cells(Ligne, 3).Value = 0
Cells(Ligne, 5).Value = 0
Cells(Ligne, 6).Value = Format(Date, "mm-dd-yy")
Cells(Ligne, 7).Value = Format(Date, "mm-dd-yy")
Cells(Ligne, 8).Value = "PF41"
Cells(Ligne, 9).Value = "A"
Cells(Ligne, 10).Value = "A"
Cells(Ligne, 11).Value = "A"
' Ouverture de la Forme Ajouter pour le saisie des valeurs
FrmAjouter.Show
Range(Cells(2, 1), Cells(Ligne, 12)).Select
selection.Name = "BD"
Cells(Ligne, 2).Select
End Sub