Vba copier coller sous condition

[d.deneys]

Bonsoir à tous et toutes,
Voilà j'essaye de modifier un code vba:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim varcol As Integer
Dim varlig As Integer
Dim varfeuille As String
varcol = Target.Column
varlig = Target.Row
varfeuille = "Reel " & Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 6)
If varcol <> 10 And varcol <> 19 And varcol <> 28 And varcol <> 37 And varcol <> 46 Then Exit Sub
If Len(Target.Value) = 0 Then
For i = 0 To 7
Sheets(varfeuille).Cells(varlig, varcol - i).ClearContents
Next
Exit Sub
End If
If Target.Value = "v" Then Target.Value = "V"
Sheets(varfeuille).Cells(varlig, varcol) = Target.Value
Sheets(varfeuille).Cells(varlig, varcol - 1) = Cells(varlig, varcol - 1).Value
Sheets(varfeuille).Cells(varlig, varcol - 2) = Cells(varlig, varcol - 2).Value
Sheets(varfeuille).Cells(varlig, varcol - 3) = Cells(varlig, varcol - 3).Value
Sheets(varfeuille).Cells(varlig, varcol - 4) = Cells(varlig, varcol - 4).Value
Sheets(varfeuille).Cells(varlig, varcol - 5) = Cells(varlig, varcol - 5).Value
Sheets(varfeuille).Cells(varlig, varcol - 6) = Cells(varlig, varcol - 6).Value
Sheets(varfeuille).Cells(varlig, varcol - 7) = Cells(varlig, varcol - 7).Value
End Sub

Le code est visible sur les feuilles "prévi"
Ce code permet de recopier des valeurs si en colonne J;S;AB;AK OU AT
ce trouve la valeur "V", le code fonctionne actuellement si le "V" est mis manuellement mais pas si ils sont mis via formules.

Les V sont mis sur les feuilles correspondante a tout ce qui est prévi (12 feuilles, 1/mois) et les données sont recopiées sur les feuilles réel (12 feuilles, 1/mois)

Merci d'avance a qui pourra m'aider

 

[d.deneys]

Re : Help VBA

Bonsoir le forum,
Je réessaie ce soir, voir si une âme charitable aurais un peux de temps a
m'accorder pour boucler mon projet.

Bav

 

[d.deneys]

Re : Help VBA

Bonsoir à tous et toutes,
Personne pour m'aider ?
Bav