Gerer des bases de données

Voici ma premiere macro qui as pour but d'enregistrer les information dans une base de doSub EnregCreaAff()

Dim ChangLig As Integer

'Copie colle les information de la création client dans la base de donnée
'client
'Changer de ligne si ligne avec valeur


Sheets("Création Aff").Range("b5").Copy
Sheets("BDD créa aff").Range("A2").PasteSpecial Paste:=xlPasteValues

Sheets("Création Aff").Range("b9").Copy
Sheets("BDD créa aff").Range("b2").PasteSpecial Paste:=xlPasteValues

Sheets("Création Aff").Range("b27").Copy
Sheets("BDD créa aff").Range("c2").PasteSpecial Paste:=xlPasteValues
Range("C2").NumberFormat = "m/d/yyyy"

Sheets("Création Aff").Range("b28").Copy
Sheets("BDD créa aff").Range("e2").PasteSpecial Paste:=xlPasteValues
Range("E2").NumberFormat = "m/d/yyyy"

Sheets("Création Aff").Range("b29").Copy
Sheets("BDD créa aff").Range("f2").PasteSpecial Paste:=xlPasteValues
Range("F2").NumberFormat = "m/d/yyyy"

Sheets("Création Aff").Range("b30").Copy
Sheets("BDD créa aff").Range("h2").PasteSpecial Paste:=xlPasteValues
Range("H2").NumberFormat = "m/d/yyyy"

Sheets("Création Aff").Range("b31").Copy
Sheets("BDD créa aff").Range("i2").PasteSpecial Paste:=xlPasteValues
Range("I2").NumberFormat = "m/d/yyyy"

Sheets("Création Aff").Range("b32").Copy
Sheets("BDD créa aff").Range("j2").PasteSpecial Paste:=xlPasteValues
Range("J2").NumberFormat = "m/d/yyyy"

Sheets("Création Aff").Range("c22").Copy
Sheets("BDD créa aff").Range("l2").PasteSpecial Paste:=xlPasteValues

Sheets("Création Aff").Range("c23").Copy
Sheets("BDD créa aff").Range("m2").PasteSpecial Paste:=xlPasteValues

ChangLig = Range("a2").Value
ChangLig = ChangLig + 1
Range("a3").Value = ChangLig


End Sub

Sub InsertLigBDDDEVIS()

'inserer une ligne dans le tableau de BDD création affaire

Sheets("BDD créa aff").Select
Rows("2:2").Select
Selection.Insert shift:=xlDown
Selection.ClearFormats

Range("C2").NumberFormat = "m/d/yyyy"
Range("E2").NumberFormat = "m/d/yyyy"
Range("F2").NumberFormat = "m/d/yyyy"
Range("H2").NumberFormat = "m/d/yyyy"
Range("I2").NumberFormat = "m/d/yyyy"
Range("J2").NumberFormat = "m/d/yyyy"

End Sub

Sub RAZBCreaAff()

Dim ConfirmeEffaCreaAff As Integer

'Effacer le contenue des cellules

Sheets("Création Aff").Select

Confirm = MsgBox("Etes vous sur de vouloir enregistrer," _
& ActivSheetName _
& "les données de cette feuilles seront remises à zero ", vbYesNo)

If Confirm = vbYes Then
ActiveWorkbook.Save

Range("b5").Select
Selection.ClearContents

Range("b9").Select
Selection.ClearContents

Range("b27").Select
Selection.ClearContents

Range("b28").Select
Selection.ClearContents

Range("b29").Select
Selection.ClearContents

Range("b30").Select
Selection.ClearContents

Range("b31").Select
Selection.ClearContents

Range("b32").Select
Selection.ClearContents

Range("c22").Select
Selection.ClearContents

Range("c23").Select
Selection.ClearContents

Else
MsgBox "opération annulée"

End If

End Sub

Sub RécapBDDCreaAff()

EnregCreaAff
InsertLigBDDDEVIS
RAZBCreaAff

End Sub


Maintenant dans ma feuille modification d'affaire je rappelle toutes ces information par le biais de rechercheV mais quand je modifie j'ai besoin que une macro m’enregistre les modifications.. sans me supprimer les cellules ou il n'y a pas eux de modifications

je suis dessolé j'ai beaucoup de mal à être claire ..