Merci beaucoup Banzai c'est exactement cela !!!!
Merci, merci, merci !
J'avais une petit question, j'ai bien vu que pour la première feuille, le code marche pour 4 cellules fusionnées, celui-ci est donc modifiable
If Target.Count = 4 And Target.MergeCells = True Then
Cependant si je veux changer et mettre 10, je comprend que pour le premier code j'ai juste à changer 4 pour 10 mais pour le second code de mise en forme automatique, je ne vois pas où cela doit être modifié??
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LgDep As Long
If Target.Count > 1 Then Exit Sub
If Not Intersect(Columns("A"), Target) Is Nothing Then
If Target.Row > 1 Then
If Target.Offset(-1, 0) = "" Then
MsgBox "Pas de ligne vide"
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
Exit Sub
End If
End If
With Sheets("Test")
LgDep = Target.Row * 6
If Target = "" Then
.Rows(LgDep & ":" & LgDep + 5).Delete
Application.EnableEvents = False
Target.Delete shift:=xlShiftUp
Application.EnableEvents = True
Else
If .Range("A" & LgDep).MergeCells = True Then
.Range("A" & LgDep) = Target
Else
.Rows(LgDep & ":" & LgDep + 5).Insert
With .Range("A" & LgDep & ":D" & LgDep)
.Merge
.BorderAround Weight:=xlMedium
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Bold = True
.Font.Italic = True
End With
.Range("A" & LgDep) = Target
End If
End If
End With
End If
End Sub
C'est une petite question en plus, peut être ridicule, je ne sais pas... merci encore pour ton aide !!!
Bien cordialement !