Bonjour,
J'ai besoin d'aide. J'ai cherché sur le forum mais je ne trouve pas de solution a mon pb.

Voila j'ai une macro qui dans un premier temps recherche une valeur puis a l'aide de la commande offset se decale pour selectionner une cellule.
de la je veux selectionner une autre cellule non contigue pour aller copier ses 2 valeurs dans un autre onglet.
Je n'arrive pas à trouver la bonne commande. je pourrais faire une 2eme boucle mais je pense qu'il y a plus simple.
Merci d'avance pour votre aide. j'ai mis "Range("Activecell,Activecell.offset(0,3)").Select" mais ça ne fonctionne pas avec cette commande

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For i = 1 To 10
 Sheets(5).Activate
    'Mise en place d'un filtre pour recuperer les valeurs de BdP de l'antenne de Montceau
    Range("A1").AutoFilter Field:=1, Criteria1:=Array( _
        "Berry-Charolais_S" & i), Operator:=xlFilterValues
 
    Cells.Find(What:="SAINT ROMAIN REGLEMENTAIRE").Activate
    ActiveCell.Offset(0, 33).Select
    Range("Activecell,Activecell.offset(0,3)").Select
 
    ActiveCell.Copy 'copie le Q journalier
    Sheets("Tir DSG S1 à S10").Range("AT" & i + 60).PasteSpecial Paste:=xlPasteValues
 
 
 Next