VBA checkbox

essayez de remplacer :

With Sheets("Planning Ambulances Mensuel").Range("A4:T4")
    .Insert Shift:=xlDown
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlBottom
End With

par

With Sheets("Planning Ambulances Mensuel").Range("A4:T4")
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlBottom
    .Insert Shift:=xlDown
End With

Négatif ca le fait toujours

Remplacer

With Sheets("Planning Ambulances Mensuel").Range("A4:T4")
   .HorizontalAlignment = xlLeft
   .VerticalAlignment = xlBottom
   .Insert Shift:=xlDown
End With

par

Sheets("Planning Ambulances Mensuel").Range("A4:T4").Insert Shift:=xlDown
With Sheets("Planning Ambulances Mensuel").Range("A4:T4")
   .HorizontalAlignment = xlLeft
   .VerticalAlignment = xlBottom
End With

Malheureusement toujours pas...

Veux tu que je te mette le fichier en piece jointe?

oui, ça pourrait aider

Et bien voilà, magie magie après avoir fermer le fichier pour en supprimer les donnée du secret médical...

Ca fonctionne...

Je te dois donc un bière fred35

Je peux enfin mettre

Je croyais que la fatigue m'avait grillé les neuronnes ^^

Et bien sur ces bonne paroles, je vais aller rejoindre Morphée.

@++