total = Application.WorksheetFunction.CountA(Sheets('TAMPON').Columns(6))
Selection.AutoFill Destination:=Range('C2:E' & total), Type:=xlFillDefault
Sub Dupliquer_Formule()
total = Application.WorksheetFunction.CountA(Sheets('TAMPON').Columns(6))
Selection.AutoFill Destination:=Range('C2:E' & total), Type:=xlFillDefault
End Sub
Sub Dupliquer_Formule()
Sheets('TAMPON').Select
total = Range('f65536').End(xlUp).Row
Sheets('CONCURRENCE').Select
Range('B2').Select
Selection.AutoFill Destination:=Range('B2:E2'), Type:=xlFillDefault
Range('B2:E2').Select
Range('A2:E2').Select
Selection.AutoFill Destination:=Range('A2:E' & total), Type:=xlFillDefault
Range('A2:E13').Select
End Sub
iTotal = Range('f65536').End(xlUp).Row
While iTotal > 1 And (Cells(iTotal, 6).Value = '' Or Cells(iTotal, 6).Value = 0)
iTotal = iTotal - 1
Wend