Bonsoir tactic6, 
Bonsoir Didier

Je ne suis pas certain d'avoir compris ce que tu veux faire (je n'ai pas tout décortiqué) : créer une image "partielle" de la feuille "saisie" vers la feuille "archive" ET au même emplacement ?  Si c'est cela, je regarderai du côté des "tableaux", comme ceci :

Sub tableau_plage()
  Dim P1
  P1 = Feuil1.Range("B15:C129").Value
  Feuil2.Range("B15:C129").Value = P1    ' on pourrait écrire :       Feuil2.Range("B300:C414").Value = P1
  P2 = Feuil1.Range("H15:K129").Value
  Feuil2.Range("H15:K129").Value = P2
End Sub

Une autre idée :

Sub Copie()
  '  Range("b1:c1", "f1:j1").Copy Range("B" & ActiveCell.Row - 1)
  '  Range("G1", "J1").Copy Range("B" & ActiveCell.Row)
End Sub

Il restera à traiter les cellules éparses.

A toi d'adapter

Eric

Bonjour à tous

Bonjour Sylcoco

Quelque chose comme ceci :

Sub copie_ligne()
Dim lign_vide As Integer
lign_vide = Range("B1").End(xlDown).Row + 1  ' recherche premiere ligne vide
Range("2:2").Copy Range("a" & lign_vide)  ' copie de la ligne
Range("A" & lign_vide) = Range("A" & lign_vide - 1) + 1  ' incémentation
End Sub

A te lire

Eric

Bonjour 

Sujet résolu

Bonjour Didier
Bonjour à tous

Tu n'as pas à être désolé, et en plus tu me donnes une réponse top.

Merci beaucoup, cela va plus que m'inspirer. En 1 ligne, on peut guère faire plus court 

Bonne journée

Bien cordialement

Eric

Bonsoir à tous

En colonne "A" j'ai des cellules contenant des nombres ou des chaines. 
Peut-on, sans boucle, connaître les adresses (lignes) des cellules avec du texte ?

Merci d'avance
Eric

Bonjour Didier, Guy, Stéphane, le forum,

Je viens de lire, avec retard, 2 messages tout aussi intéressant l'un que l'autre.

Stephane merci pour ta réponse, mais ce que tu me proposes ne me convient pas car en faisant alt F11 nous avons tous les codes.

Guy .... wwwwaouhou bel exposé, et je suis d'accord avec toi
En faisant des tests, mais qui n'ont rien à voir, l'idée m'est venue : peut-on cacher un module, une sub, ...  En fouillant dans ma tête puis dans mes archives j'ai trouvé les quelques lignes de code, mais cela ne fonctionne pas. Et pourtant .....

Merci à vous
Eric

Bonjour Didier

Merci, il me semblait que c'était faisable, dommage

Bonne fin de WE

Eric

Bonjour à toutes et tous

Je sais qu'il est possible de masquer un module. J'ai dans le module  :

Option Explicit
Option Private Module

Sub mamacro_03(Optional X As String)
'le code
End Sub

ou 

Option Explicit
Option Private Module

Private Sub mamacro(Optional strBidon As String)
'.code
End Sub

ou

Option Explicit
Option Private Module

Sub mamacro_02()
'......
End Sub

mais rien à faire, il est toujours visible.

J'ai verrouillé le projet pour l'affichage mais cela ne fonctionne pas plus, c'est tout ou rien;

Qu'elle est la manip ?

Merci par avance
Eric

Bonjour

La carte que tu as déposée n'a ni nom ni numéro de département, je viens de revérifier.

La zone Ile de France est beaucoup plus petite que sur le premier fichier.

Eric

Bonjour à toutes et tous
Bonjour zztop

Oui, c'est ce que je te demandais car c'est plus précis, mais il y a un mais ...... les formes ne sont plus "nommées" donc je ne peux plus tester 

Il te reste deux choix, tu reprends : soit ton premier fichier et tu recales les formes (solution que je préfère), soit celui que tu m'as envoyé en ajoutant les "noms" et numéros des départements.

De mon côté, j'avance.

Bon courage
Eric