Sub miseenpoucentage()
'selection des colonnes
[G2].CurrentRegion.Select
Set zone = [G2].CurrentRegion
PremièreColonne = zone.Column
nbcolonnes = zone.Columns.Count
nblignes = zone.Rows.Count
For i = PremièreColonne To nbcolonnes + PremièreColonne - 1
[Q2] = Application.WorksheetFunction.Min(Range(Cells(2, i), Cells(nblignes, i)))
For j = 2 To nblignes
Cells(j, i) = Cells(j, i) - [Q2] - 1
Next j
[Q1] = Application.WorksheetFunction.Max(Range(Cells(2, i), Cells(nblignes, i)))
For j = 2 To nblignes
Cells(j, i) = (Cells(j, i) / -[Q1]) * 100
Next j
Next i
Range("q1:q2").Clear
End Sub