'Sélectionner la cellule à rechercher dans l'onglet Backup'exemple se mettre sur la cellule A5 de section-1 puis lancer le code
'va permettre de remplacer les données de cette même ligne dans la feuille Backup
Sub maj()
'définition des variables
Dim c As Range
Dim sh As Worksheet
Dim drligne As Long
Dim zone As Range
Dim i As Byte
Dim present As Boolean
'instanciation des variables
Set sh = Sheets("Backup")
drligne = sh.Range("A1").End(xlDown).Row + 1 'recherche de la dernière ligne de la feuille backup
Set zone = sh.Range("A2:A" & drligne)
'**********************************************
'boucle de recherche de la cellule Axx dans la feuille Backup
For Each c In zone
'comparaison de valeur
'si la cellule sélectionner est égale à celle de la feuille Backup
'on exécute le code qui suit le mot clé "then"
If ActiveCell.Value = c.Value Then
'on boucle sur 3 cellules afin de modifier les valuer (en quelques sortes faire une mise à jour de la ligne)
For i = 1 To 3
c.Offset(0, i).Value = ActiveCell.Offset(0, i).Value
Next
present = True
End If
Next
If present = False Then
sh.Rows("4:4").Insert Shift:=xlDown
For i = 0 To 3
sh.Cells(4, i + 1).Value = ActiveCell.Offset(0, i).Value
Next
End If
End Sub