Re : Application réservation
Re,
En plaçant Sheets(moisarriv).Select et Sheets(moisdep).Select, cela ralenti, mais la feuille de travail est désignée.
If moisarriv <> moisdep Then
Sheets(moisarriv).Select
With Sheets(moisarriv).Range(Cells(Lig, Prem_Heure), Cells(Lig, 126))
.Merge 'fusion des cellules
.Value = nom & " " & prenom & " " & rue
.Interior.ColorIndex = 45 'couleur Bleu
.HorizontalAlignment = xlCenterAcrossSelection 'on centre horizontalement
.VerticalAlignment = xlJustify 'xlCenter 'et verticalement
.Font.Bold = True 'on met en gras
End With
Sheets(moisdep).Select
With Sheets(moisdep).Range(Cells(Lig, 6), Cells(Lig, Der_Heure))
.Merge 'fusion des cellules
.Value = nom & " " & prenom & " " & rue
.Interior.ColorIndex = 45 'couleur Bleu
.HorizontalAlignment = xlCenterAcrossSelection 'on centre horizontalement
.VerticalAlignment = xlJustify 'xlCenter 'et verticalement
.Font.Bold = True 'on met en gras
End With
End If
A+