Bonjour à tous,

Je m'amuse à développer de petites applis pour moi ou mon club de rando.
Totalement amateur, j'ai besoin de votre aide.

Voila j'ai 2 feuilles, la 1er nommé "Etat" dans laquelle (colonne B à partir de B4) figure les noms a rechercher dans la 2° feuille nommé "Nom"(entre C2 et C80)
Ma fonction fonctionne correctement pour la 1er ligne. soit: Sheets("Etat").Range("b4"), mais ne "passe pas si je puis dire à la 2° ligne (c4).

Merci de bien vouloir trouver mon ou mes erreurs et si possible avec une explication

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Set Plage = Sheets("Nom").Range("c2:c80")
Sheets("Etat").Activate
Nom_Etat = Sheets("Etat").Range("b4")
 
For Each Cell In Plage
    If Cell = Nom_Etat Then
        Sheets("nom").Activate
        Position = Cell.address
        Range(Position).Select
        Code = ActiveCell.Offset(0, 1).Value
        Commune = ActiveCell.Offset(0, 2).Value
        Adresse = ActiveCell.Offset(0, 3).Value
        TEL1 = ActiveCell.Offset(0, 4).Value
        TEL2 = ActiveCell.Offset(0, 5).Value
        TEL3 = ActiveCell.Offset(0, 6).Value
        Mail = ActiveCell.Offset(0, 7).Value
 
       Sheets("Etat").Activate
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Adresse
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Code
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Commune
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL1
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL2
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL3
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Mail
        ActiveCell.Offset(1, -7).Range("a1").Select
      End If
Next