ça, c'est un bon moyen de ne jamais avoir la réponse !!!!j'attends vos réponses avec impatience
Sub Macro1()
On Error Resume Next
Range("A1:B2").Copy
Columns("A:A").Select
Range("A" & Rows.Count).Activate
Selection.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Sub Macro1()
On Error Resume Next
Dim c As Range
Range("A1:B2").Copy
With Columns("A:A")
Set c = .Find("Total")
If Not c Is Nothing Then
adres1 = c.Address
Do
c.Offset(1, 0).Select
ActiveCell.PasteSpecial
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adres1
End If
End With
Application.CutCopyMode = False
End Sub
Sub Macro1()
On Error Resume Next
Dim c As Range
With Columns("A:A")
Set c = .Find("Total")
If Not c Is Nothing Then
adres1 = c.Address
Do
Range("A1:B2").Copy
c.Offset(1, 0).Select
ActiveCell.Insert
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adres1
End If
End With
Application.CutCopyMode = False
End Sub