Re,
Même qu’il est un peut tard je tiens a partager ma joie avec vous @Mimimathy j’ais réussis a fusionner les
macros et c’la fonctionne sans bug je suis tellement content un énorme merci pour tous 
je suis arrivé au second point d’arrêt il fallait que je partage ca avec
vous 
CDLT
Re, @Mimimathy
Bonjour , ma joie est de courte durée ce matin je copie et colle le code VBA dans le classeur d’origine et c’la
ne marche pas ca me sélectionne plusieurs cellules de la colonne “I” et pas la "Réunion du jour "
Alors que dans le classeur “essaie VBA” lorsque je fais le code avec la touche “F8” c’la fonctionne
très bien c’est quand même pas croyable 
c’est vraiment la faute a pas de chance
Je vous met le classeur “essaie VBA” avec les code fusionné
PS: Je vous remercie pour l’an gueulade dans le MP je n’avais pas fait attention 
essaie VBA.xlsm (88,8 Ko)
Cdlt
Bonjour,
Prends ton temps pour expliquer et précise qu’elle macro, quel classeur
Re,
Je vous renvoie le classeur “essaie VBA(1)” avec une seule macro “préparation2” et qui fonctionne
très bien avec la touche “F8”
Donc ce que j’ais fais j’ais copier la macro du classeur "essaie VBA(1)"que j’ais coller dans la
macro "préparation "du classeur d’origine ou si vous préférez le programme et là même en faisant
pas à pas avec “F8” plus rien ne marche c’la me sélectionne tout un tas de cellules en colonne “I”
mais pas les courses du jour alors que dans le classeur “essaie VBA(1)” tout fonctionne
essaie VBA(1).xlsm (58,6 Ko)
Cdlt
Re,
Si tu avais utilisé la touche F8 dans ton classeur final
tu aurais remarqué que tu as la phrase “Réunions du jour” qui est déjà en place en cellule A15 de ta feuille “01(2)”.
Cette phrase vient du fait qu’elle est présente sur la feuille “01” qui te sert de copie.
Donc la macro qui recherche cette phrase prend cette cellule en référence et “BLOUM” gros bug
Supprime cette phrase en cellule A15 de la feuille "01"
Place la macro “Préparation2” et lance
Re, suite
tu peux également placer en début de macro après le Dim
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
à la fin avant le End Sub
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
et surement aussi beaucoup de nettoyage dans la macro, certaines lignes sont inutiles, cela accélérait la vitesse d’éxécution
Re,
Bon j’ ais placé juste après le Dim
Et juste avant le End Sub
Mais c’est toujours la même chose c’la fonctionne dans le classeur « essaie VBA(1) »
Mais toujours pas dans le classeur d’origine le programme toujours une série de cellule en colonne « I »
c’la me sélectionne les cellules de "I16 à I159 "
et ce qui est pour le nettoyage n’hésiter pas nettoyer c’est vrai que c’est un peut lent
Cdlt
Re,
Est-ce que tu lis, tous les messages
Il y a, juste avant celui de mettre le ScreenUpdating et Etc, un autre message qui te dis de virer ce qu’il se trouve dans la cellule A15 de la feuille “01” 
Re,
Et non je n’avais pas vue que vous aviez déjà répondue je m’en excuse comme on dit
" **d’un bourricot tu ne peut pas en faire un cheval de course même si tu lui coupe les oreilles en pointe sa sera toujours un bourricot **"
je vais regarder c’la de suite et je vous tiens au courant
Cdlt
Re,
c’est bon c’la fonctionne
Maintenant préférez-vous passer au deuxièmes point d’arrêt ou faire du nettoyage ou tout simplement
en arrêter là comme vous voulez
Cdlt
Re,
C’est comme je disais hier, la finalité de la demande aurait été bien mieux avec une feuille qui représente ce que l’on désire effectué avec des copier/coller
Là, tu vas me ressortir des demandes qui auraient pu être outrepassées si j’en connaissait la fin
Mais envoi toujours, je verrai si c’est dans mes cordes
Re,
Bon je vais essayer d’être clair
On reste sur le classeur "essaie VBA(1) quand on actionne le module “préparation2” avec la
touche “F8” jusqu’à “End Sub” nous avons solutionné le point d’arrêt 1 et nous avons les colonnes
“BC:HH” de sélectionné exact
Re,
Ah si tu fais du pas à pas 
Je serai surement en asticot avant la fin du programme
Re,
Peut être mais c’la m’évitera de me faire tirer les oreilles
Bon revenons au chose sérieuse donc nous somme bien en colonne “BC:HH” qui sont sélectionner dans
la Feuil 01(2)
Vous verrez que dans la colonne BC , BM , BW , CG , CQ , DA , DK , DU il y a les réunion du jour
Dans la colonne BC il faut aller chercher la réunion 1
Dans la colonne BM il faut aller chercher la réunion 2
Dans la colonne BW il faut aller chercher la réunion 3
Dans la colonne CG il faut aller chercher la réunion 4
Dans la colonne CQ il faut aller chercher la réunion 5
Dans la colonne DA il faut aller chercher la réunion 6
Dans la colonne DK il faut aller chercher la réunion 7
Dans la colonne DU il faut aller chercher la réunion 8
Et comme je ne sais pas comment faire pour faire c’la car sa change tous les jours je faisais un point d’arrêt
pour que je puisse changer les cellules des colonnes ou ce trouve les réunions
EX: aujourd’hui dans la colonne BC la réunion est ► Réunion 1 Programme du 28/05/2018 à 13:10 - SAINT CLOUD
Je supprimais cette phrase que je remplaçais part N° et a la fin de la réunion c’est a dire qu’ aujourd’hui
il y a 9 course dans la réunion1 je mettais a la fin FIN pour que le programme puisse fonctionner
Vous verrez que dans la Feuille Model 01 en colonne BC1000 j’ais mis N° et FIN
en espérant avoir et acer clair c’est sur que de l’expliqué comme c’la c’est pas évidant
Alors je pensais que si on allait chercher juste le mot Réunion 1 dans la colonne BC etc. pour chaque
colonne
Cdlt
Re,
Si toute fois vous avez du mal a comprendre essayé avec le programme d’origine
Aller dans le module Préparation et placé les point d’arrêt au endroit indiqué et actionner le module avec
F8 quand vous arriverez au 2èime point d’arrêt c’est a dire aux colonnes BC:HH effacer la phrase
qui ce trouve en BC36 et la remplacer part N° et ensuite descendre en BC57 et y inscrire FIN
Même si vous le faite pour une seule Réunion le programme fonctionnera et comme c’la vous verrez part
vous même ce qui ce passe
Cdlt
Re,
Bon j’ai vu le principe, mais je n’ai pas vu le résultat final
Ensuite, pour les autres réunions, comment cela se passe
Re, @Mimimathy
Des jas si on trouve pour une Réunion c’la seras bien car après pour les autres c’la ne seras pas un
problème puisque c’est toujours pareils pour les autres Réunions
J’ais bien essayé de mettre un bout de votre code
Range(“BC1”).Select
Cells.Find(What:=“Réunion 1”, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
NoLigne = ActiveCell.Row 'Attribue le N° de la ligne
Deb = NoLigne
C’la vas bien me chercher Réunion 1 mais en colonne (“H”)
Apres j’ais changer le SearchDirection mais plus de curseur mais en tout cas ce qui est sur c’est qu’il n’est
pas en colonne (“H”) bon nous vairons c’la demain et merci de votre patience
Cdlt
Bonjour,
Pour la 1ère Réunion
Au dessus de la macro
Dim NoLigne%, Deb%, Fin%, Col%
Sub preparation()
Sheets("Je joue !!!").Activate
Au '2 faire un point d’arret
.ReadingOrder = xlContext
.MergeCells = False
'2 faire un point d'arret
End With
Sheets("01").Select
Range("BC1000:HH1075").Select
Selection.Copy
Range("A1").Select
Sheets("01 (2)").Select
Range("BC1000").Select
ActiveSheet.Paste
Col = ActiveCell.Column '---> Ajouté
Reunion '---> Ajouté
Range("" & [BC1003].Value).Select
Selection.Copy
tout en bas après le End Sub mettre cette macro
Sub Reunion()
With Sheets("01 (2)").Range(Cells(1, Col), Cells(999, Col))
Set c = .Find("Réunion 1", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
DebR = c.Address
Range(DebR) = "N°"
End If
Set c = .Find("Réunion", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
FinR = c.Address
Range(FinR).Offset(-2, 0) = "FIN"
End If
End With
End Sub
Re,
Bonjour @Mimimathy
Bon j’ais placé votre code comme vous me l’indiquez et j’ais changé ces ceux lignes
Part " Range(Debr)=« Réunion 1 ») " car « N° » c’était mois qui le rajoutais quand les colonne (« BC:HH »)
était sélectionnées et la deuxièmes est
Part " Range(FinR).Offset(-2,0)=« Réunion 2 » car la pareil c’était moi qui le rajoutait parce que le programme
quand on le fait tourner range en « BC:HH » que les réunions du jour et sans « N° ni FIN »
je vais vous envoyer le classeur « essaie VBA(1) » et vous verrez quand colonne « BD1001 » il me trouve
bien « Réunion 1 » à la ligne « BC36 » mais me trouve « Réunion 2 » a la ligne BC34 car c’est là que
ce trouve le premier « Réunion 2 »
Alors je crois qu’il faudrait que lorsque la macro nous trouve le mot « Réunion 1 » partir de la ligne de ce
mot trouvé et descendre jusqu’à trouvé le mot « Réunion 2 »
Voici le classeur ===>essaie VBA(1).xlsm (256,9 Ko)
Cdlt
Re,
AH OK je n’avais pas bien regarder la fonction de la macro je vient de la comprendre je l’ais donc remis
dans sont contexte
Bon c’la me met bien « N° » en ligne BC36 mais c’la me met « FIN » en ligne « BC34 » au lieu de
« BC55 »
Apres ce que je ne comprend pas c’est le -----> ajouté a ces lignes
es qu’il faut que je précise les colonnes et la Réunion pour les autres
Cdlt