bonjour, est il possible d'activer une cellule mais sans afficher la feuille?? car mon code ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Integer, sh As Worksheet
For Each sh In Worksheets
With sh
If UCase(Left(.Name, 3) = "DDV") Then
.Range("AM5").Activate
While ActiveCell.Value <> Empty
LigneActive = ActiveCell.Row
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
Else
....
Si quelqu'un a une idée.... ça bloque à .Range("AM5").Activate

codialement