FinX = Sheets(KelFeuille1).Range('IV12').End(xlToLeft).Column
If FinX < 3 Then
MsgBox 'Pas de point à representer graphiquement ! ' & Chr(13) & 'Impossible de continuer la macro !', vbCritical + vbOKOnly, 'Attention ...'
Exit Sub
End If
GenGraph.Select
With ActiveChart
.PlotArea.Select
.SeriesCollection(1).XValues = KelFeuille & 'R12C3:R12C' & FinX
.SeriesCollection(1).Values = KelFeuille & 'R27C3:R27C' & FinX
End With