Bonjour L3GION,
Je n'ai pas pu accéder à votre fichier car il me met en connexion non sécurisée.
Sinon, pour copier-coller les données d'une feuille à une autre : (A mettre dans un module)
Sub copie_colle()
Dim Ws As Worksheet, Wsb As Worksheet
Set Ws = Sheets("A")
Set Wsb = Sheets("B")
Dim plage As Range, plageB As Range
Set plage = Ws.Range("B2:P410")
Set plageB = Wsb.Range("B2:P410")
Application.ScreenUpdating = False
plage.Copy
plageB.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
Pour que cela se fasse à chaque changement de données dans une cellule de la plage concernée : (A mettre dans la feuille concernée - Feuille A)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Sheets("A").Range("B2:P410")) Is Nothing Then
Call copie_colle
End If
End Sub
Cordialement,