Bonjour à tous,
J'y comprends plus rein,
sur une simple expression comme ça, je ne trouve pas l'erreur.
cela me renvoit une erreur :
sur range("E2:F51").select
"la methode select de la classe range à échoué "
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim CellChange As Range
Set CellChange = Range("B1")
If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then
If Range("b1").Value = "GEL_CENTER" Then
Application.ScreenUpdating = False
Sheets("SALARIES").Activate
Range("E2:f51").Select
Selection.Copy
Sheets("TAB GEL CENTER").Activate
Range("A5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
End If
Application.ScreenUpdating = True
End Sub
si quelqu'un sait d'ou vient l'erreur, je l'en remercie d'avance de me le faire savoir.
merci à tous
dj.run